7.3.3 (d+e x)^m (a+b arctanh(c x^n))^p.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    342796,       7312]
NotebookOptionsPosition[    334885,       7110]
NotebookOutlinePosition[    336627,       7164]
CellTagsIndexPosition[    336584,       7161]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{Cell[TextData[StyleBox["Rules for integrands of the form",
    FontFamily->"Arial",
    FontSize->16]], "None"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"]}],
  FontSize->16]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.544373142375139*^9, 3.5443731599851637`*^9}, {3.5721095751430073`*^9, 
   3.5721095751430073`*^9}, {3.57578648209792*^9, 3.575786503859958*^9}, 
   3.575786540270422*^9, {3.5757866379421935`*^9, 3.5757866609522343`*^9}, 
   3.746047470037391*^9, 3.7460711681508455`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "q"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"p", "\[Element]", 
      SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, {3.551326301250945*^9, 
   3.551326301841979*^9}, {3.552150760656293*^9, 3.552150761436294*^9}, 
   3.5521509768882723`*^9, {3.5521510341403728`*^9, 3.5521510486171985`*^9}, {
   3.5521511118909097`*^9, 3.5521511159313164`*^9}, 3.55215165895267*^9, 
   3.552151705315952*^9, 3.553532182175474*^9, {3.553559669357978*^9, 
   3.553559705888029*^9}, {3.5535602318087654`*^9, 3.5535602417087793`*^9}, 
   3.553617594461242*^9, 3.553617658031331*^9, {3.553617950531741*^9, 
   3.5536179652017612`*^9}, 3.5557731793147464`*^9, 3.5562986064709735`*^9, 
   3.5860254201973715`*^9, 3.586110663591037*^9, 3.586317678224332*^9, 
   3.586456869554533*^9, 3.620161187104122*^9, {3.7163360352700977`*^9, 
   3.7163360389513083`*^9}, {3.7163360885401444`*^9, 3.716336092028344*^9}, {
   3.7163364427534046`*^9, 3.71633645789227*^9}, {3.7164009483720665`*^9, 
   3.7164009546614265`*^9}, {3.719022899294056*^9, 3.7190228995300694`*^9}, 
   3.7190304539571576`*^9, 3.736566978403927*^9, 3.736623152120734*^9, {
   3.746071230623419*^9, 3.7460712308464317`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"p", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, {3.551326301250945*^9, 
   3.551326301841979*^9}, {3.552150760656293*^9, 3.552150761436294*^9}, 
   3.5521509768882723`*^9, {3.5521510341403728`*^9, 3.5521510486171985`*^9}, {
   3.5521511118909097`*^9, 3.5521511159313164`*^9}, 3.55215165895267*^9, 
   3.552151705315952*^9, 3.553532182175474*^9, {3.553559669357978*^9, 
   3.553559705888029*^9}, {3.5535602318087654`*^9, 3.5535602417087793`*^9}, 
   3.553617594461242*^9, 3.553617658031331*^9, {3.553617950531741*^9, 
   3.5536179652017612`*^9}, 3.5557731793147464`*^9, 3.5562986064709735`*^9, 
   3.5860254201973715`*^9, 3.586110663591037*^9, 3.586317678224332*^9, 
   3.586456869554533*^9, 3.620161187104122*^9, 3.7163360963165894`*^9, {
   3.7190295717036953`*^9, 3.719029640771646*^9}, 3.7190300827579265`*^9, 
   3.7190304556852565`*^9, {3.7191100105312843`*^9, 3.7191100180177126`*^9}, 
   3.736567640997825*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"p", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["c", "2"], " ", 
          SuperscriptBox["d", "2"]}], "-", 
         SuperscriptBox["e", "2"]}], "\[Equal]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.553618024341844*^9, 3.5536194761638765`*^9, {
   3.553619522793942*^9, 3.553619534763959*^9}, {3.5536227075084004`*^9, 
   3.553622710058404*^9}, 3.556299049021593*^9, 3.5860254203073716`*^9, 
   3.5860254790324574`*^9, {3.5860540510467997`*^9, 3.5860540510467997`*^9}, 
   3.5861106638610373`*^9, {3.5861119320828123`*^9, 3.5861119320828123`*^9}, 
   3.5863178468545675`*^9, 3.620161187685156*^9, {3.7164014597993183`*^9, 
   3.7164014600823345`*^9}, {3.7164020991028843`*^9, 3.716402105446247*^9}, {
   3.717698912962572*^9, 3.7176989132045865`*^9}, {3.719029844323289*^9, 
   3.7190298460843897`*^9}, {3.7190300220544543`*^9, 
   3.7190300286868334`*^9}, {3.719036615362367*^9, 3.7190366158153934`*^9}, 
   3.7191100205028543`*^9, 3.719111405576076*^9, {3.7191114472994623`*^9, 
   3.7191114472994623`*^9}, {3.7191135863518095`*^9, 3.7191136214928193`*^9}, 
   3.7365676733866777`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.4931456018039613`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"d", "+", 
     RowBox[{"e", " ", "x"}]}]], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "e"]}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Log", "[", 
      FractionBox["2", 
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{"e", " ", "x"}], "d"]}]], "]"}]}]}]}]],
  CellChangeTimes->{{3.586053639237276*^9, 3.586053710685402*^9}}]
}], "Subsubsection",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{
  3.4931456018039613`*^9, {3.586053684929756*^9, 3.5860536866457596`*^9}, {
   3.5860537170034127`*^9, 3.5860537174246135`*^9}, {3.718573200354621*^9, 
   3.718573200354621*^9}, {3.718573243558092*^9, 3.718573243558092*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      SuperscriptBox["c", "2"], " ", 
      SuperscriptBox["d", "2"]}], "-", 
     SuperscriptBox["e", "2"]}], "\[Equal]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.492907662576008*^9, 3.4929076635660095`*^9}, {3.4930735907627287`*^9, 
   3.4930736091827545`*^9}, {3.4931451699433565`*^9, 3.493145207453409*^9}, {
   3.4931452956835327`*^9, 3.4931453218235693`*^9}, {3.4931453713536386`*^9, 
   3.4931453747436433`*^9}, 3.4931456018039613`*^9, {3.493146996085913*^9, 
   3.4931470125759363`*^9}, {3.493581126911767*^9, 3.493581143581791*^9}, {
   3.4940337767420216`*^9, 3.494033781042267*^9}, {3.5536195024939137`*^9, 
   3.553619509943924*^9}, {3.5860540517644005`*^9, 3.5860540517644005`*^9}, {
   3.5861119320928125`*^9, 3.5861119320928125`*^9}, {3.716402110429532*^9, 
   3.716402110429532*^9}, {3.7190300465178537`*^9, 3.7190300465178537`*^9}, {
   3.7191114498476086`*^9, 3.7191114498476086`*^9}, {3.719113626700117*^9, 
   3.7191136269151297`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             RowBox[{"ArcTanh", "[", 
              RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], " ", 
         RowBox[{"Log", "[", 
          FractionBox["2", 
           RowBox[{"1", "+", 
            FractionBox[
             RowBox[{"e", " ", "x"}], "d"]}]], "]"}]}], "e"]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "c", " ", "p"}], "e"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], 
        RowBox[{"p", "-", "1"}]], " ", 
       RowBox[{"Log", "[", 
        FractionBox["2", 
         RowBox[{"1", "+", 
          FractionBox[
           RowBox[{"e", " ", "x"}], "d"]}]], "]"}]}], 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["c", "2"], 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.4927459475946445`*^9, 3.49274596552767*^9}, {
   3.4927470791633663`*^9, 3.492747100502587*^9}, {3.492838456185856*^9, 
   3.492838468151077*^9}, {3.4928389429535108`*^9, 3.492838996648805*^9}, {
   3.492839156730687*^9, 3.4928391643123*^9}, 3.4928403497119923`*^9, {
   3.492908275826866*^9, 3.4929083226469316`*^9}, 3.492910391739828*^9, {
   3.4931446954326925`*^9, 3.493144762932787*^9}, 3.4931448959029727`*^9, {
   3.493144975223084*^9, 3.4931449799230905`*^9}, {3.4931453401435947`*^9, 
   3.4931453627536263`*^9}, 3.4931456018039613`*^9, {3.4931469777458878`*^9, 
   3.4931469799558907`*^9}, {3.4940008713645473`*^9, 
   3.4940008713685474`*^9}, {3.4940233075696473`*^9, 3.494023307900666*^9}, {
   3.4940340310215654`*^9, 3.4940340485815697`*^9}, {3.494034864796254*^9, 
   3.4940348686954775`*^9}, {3.4940376218759503`*^9, 
   3.4940376263072042`*^9}, {3.5860254203073716`*^9, 3.5860254203173714`*^9}, 
   3.5860254790324574`*^9, {3.586053422131695*^9, 3.586053430150109*^9}, 
   3.5860534688381767`*^9, {3.586053575308364*^9, 3.586053582499976*^9}, {
   3.5860545897269454`*^9, 3.586054594282153*^9}, {3.586110663871037*^9, 
   3.586110663891037*^9}, 3.586110969531465*^9, {3.7164021125276527`*^9, 
   3.716402119618058*^9}, {3.7185734037712555`*^9, 3.7185734055233555`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "^", "p_."}], "/", 
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "p"}]}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"2", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"e", "*", 
           RowBox[{"x", "/", "d"}]}]}], ")"}]}], "]"}], "/", "e"}]}], " ", 
    "+", " ", "\n", "  ", 
    RowBox[{"b", "*", "c", "*", 
     RowBox[{"p", "/", "e"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"ArcTanh", "[", 
             RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "-", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"2", "/", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"e", "*", 
              RowBox[{"x", "/", "d"}]}]}], ")"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"c", "^", "2"}], "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}]}], ",", "x"}], "]"}]}]}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"c", "^", "2"}], "*", 
        RowBox[{"d", "^", "2"}]}], "-", 
       RowBox[{"e", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4927475229037466`*^9, 3.4927477533449273`*^9}, {
   3.4927478131093454`*^9, 3.492747834183551*^9}, {3.4927478811922398`*^9, 
   3.4927479273238783`*^9}, {3.492747994901744*^9, 3.4927480520830145`*^9}, {
   3.492748126383264*^9, 3.492748126897293*^9}, {3.492799196725788*^9, 
   3.4927992401718645`*^9}, {3.4927992767227287`*^9, 
   3.4927993156759973`*^9}, {3.4927994994131203`*^9, 3.492799508102335*^9}, {
   3.492799544387999*^9, 3.4927995657444363`*^9}, {3.4927996261789427`*^9, 
   3.492799660327403*^9}, {3.4927997257383175`*^9, 3.4927997433351483`*^9}, {
   3.4927998179656796`*^9, 3.4927998331289062`*^9}, {3.4928379334601374`*^9, 
   3.492837939216548*^9}, {3.4928380301959076`*^9, 3.4928380706935787`*^9}, {
   3.4928381256836753`*^9, 3.492838126026876*^9}, {3.492838194448596*^9, 
   3.492838214806632*^9}, {3.4928386496573954`*^9, 3.4928386538382025`*^9}, {
   3.4928387393419533`*^9, 3.4928388738453894`*^9}, {3.4928392099891806`*^9, 
   3.4928392282724123`*^9}, {3.4928392656204743`*^9, 3.492839265890475*^9}, {
   3.4928393374405746`*^9, 3.492839337970576*^9}, 3.4928413413933806`*^9, {
   3.4930740306333447`*^9, 3.4930740321133466`*^9}, {3.493144462352366*^9, 
   3.493144468172374*^9}, {3.493144540822476*^9, 3.4931445433324795`*^9}, {
   3.4931445892825437`*^9, 3.4931445898425446`*^9}, {3.493145449723748*^9, 
   3.493145475833785*^9}, {3.49358106455168*^9, 3.493581066611683*^9}, {
   3.493748575803213*^9, 3.4937486011688576`*^9}, {3.4940008713785477`*^9, 
   3.4940008713835483`*^9}, {3.49402332003436*^9, 3.4940233203603783`*^9}, {
   3.4940349261607647`*^9, 3.494034948444039*^9}, {3.494037644559248*^9, 
   3.494037647619423*^9}, 3.548732411214406*^9, 3.548732673066383*^9, {
   3.5536194818838844`*^9, 3.553619489273895*^9}, {3.5860255405475454`*^9, 
   3.5860255405575457`*^9}, {3.5860256114501486`*^9, 3.5860256114501486`*^9}, 
   3.586025658395217*^9, 3.5860264994089313`*^9, 3.5860538480748425`*^9, 
   3.5860539041101413`*^9, {3.5860539762914677`*^9, 3.586053998443507*^9}, {
   3.5860540741940403`*^9, 3.5860540777352467`*^9}, {3.586110663891037*^9, 
   3.5861106639110374`*^9}, 3.586110993071498*^9, 3.5861119420428267`*^9, 
   3.7061413610379276`*^9, 3.7152316664656773`*^9, {3.715232060397209*^9, 
   3.7152320606312227`*^9}, {3.7164021230032516`*^9, 3.716402130165661*^9}, 
   3.716402163736581*^9, {3.7185734111476774`*^9, 3.7185734227423406`*^9}, {
   3.71858038554459*^9, 3.718580393845065*^9}, {3.7190300586855497`*^9, 
   3.719030060601659*^9}, 3.7191103224461246`*^9, 3.719111472309893*^9, 
   3.719113632053423*^9, 3.720160282010103*^9, 3.720200507573536*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "^", "p_."}], "/", 
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcCoth", "[", 
           RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "p"}]}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"2", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"e", "*", 
           RowBox[{"x", "/", "d"}]}]}], ")"}]}], "]"}], "/", "e"}]}], " ", 
    "+", " ", "\n", "  ", 
    RowBox[{"b", "*", "c", "*", 
     RowBox[{"p", "/", "e"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"ArcCoth", "[", 
             RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "-", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"2", "/", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"e", "*", 
              RowBox[{"x", "/", "d"}]}]}], ")"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"c", "^", "2"}], "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}]}], ",", "x"}], "]"}]}]}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"c", "^", "2"}], "*", 
        RowBox[{"d", "^", "2"}]}], "-", 
       RowBox[{"e", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4927475229037466`*^9, 3.4927477533449273`*^9}, {
   3.4927478131093454`*^9, 3.492747834183551*^9}, {3.4927478811922398`*^9, 
   3.4927479273238783`*^9}, {3.492747994901744*^9, 3.4927480520830145`*^9}, {
   3.492748126383264*^9, 3.492748126897293*^9}, {3.492799196725788*^9, 
   3.4927992401718645`*^9}, {3.4927992767227287`*^9, 
   3.4927993156759973`*^9}, {3.4927994994131203`*^9, 3.492799508102335*^9}, {
   3.492799544387999*^9, 3.4927995657444363`*^9}, {3.4927996261789427`*^9, 
   3.492799660327403*^9}, {3.4927997257383175`*^9, 3.4927997433351483`*^9}, {
   3.4927998179656796`*^9, 3.4927998331289062`*^9}, {3.4928379334601374`*^9, 
   3.492837939216548*^9}, {3.4928380301959076`*^9, 3.4928380706935787`*^9}, {
   3.4928381256836753`*^9, 3.492838126026876*^9}, {3.492838194448596*^9, 
   3.492838214806632*^9}, {3.4928386496573954`*^9, 3.4928386538382025`*^9}, {
   3.4928387393419533`*^9, 3.4928388738453894`*^9}, {3.4928392099891806`*^9, 
   3.4928392282724123`*^9}, {3.4928392656204743`*^9, 3.492839265890475*^9}, {
   3.4928393374405746`*^9, 3.492839337970576*^9}, 3.4928413413933806`*^9, {
   3.4930740306333447`*^9, 3.4930740321133466`*^9}, {3.493144462352366*^9, 
   3.493144468172374*^9}, {3.493144540822476*^9, 3.4931445433324795`*^9}, {
   3.4931445892825437`*^9, 3.4931445898425446`*^9}, {3.493145449723748*^9, 
   3.493145475833785*^9}, {3.49358106455168*^9, 3.493581066611683*^9}, {
   3.493748575803213*^9, 3.4937486011688576`*^9}, {3.4940008713785477`*^9, 
   3.4940008713835483`*^9}, {3.49402332003436*^9, 3.4940233203603783`*^9}, {
   3.4940349261607647`*^9, 3.494034948444039*^9}, {3.494037644559248*^9, 
   3.494037647619423*^9}, {3.494043967362791*^9, 3.4940439673667912`*^9}, {
   3.4940465310984287`*^9, 3.494046533169547*^9}, 3.548731603940726*^9, 
   3.5487319520106344`*^9, 3.553619724254224*^9, {3.586025611470149*^9, 
   3.586025611470149*^9}, 3.586025686105256*^9, {3.5860258657805157`*^9, 
   3.5860258657805157`*^9}, 3.586026499428931*^9, 3.5860538496972456`*^9, 
   3.5860539070117464`*^9, 3.586053977960671*^9, {3.5860540114383297`*^9, 
   3.586054022171149*^9}, 3.5860540898408675`*^9, 3.5860650298493986`*^9, {
   3.586110700871089*^9, 3.5861107008910885`*^9}, 3.586110993091498*^9, 
   3.5861119514628396`*^9, 3.586112003832913*^9, 3.7061413610579276`*^9, 
   3.7152316664756784`*^9, 3.7152320650844774`*^9, {3.716402133373845*^9, 
   3.7164021429683933`*^9}, {3.7185734245394435`*^9, 3.718573426483555*^9}, {
   3.718580397380267*^9, 3.7185803990713634`*^9}, 3.7190300644588795`*^9, 
   3.7191103235611887`*^9, 3.7191114695847373`*^9, 3.7191136339345307`*^9, 
   3.7201603069105277`*^9, 3.720200521966359*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"p", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["c", "2"], " ", 
          SuperscriptBox["d", "2"]}], "-", 
         SuperscriptBox["e", "2"]}], "\[NotEqual]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, {3.551326301250945*^9, 
   3.551326301841979*^9}, {3.552150760656293*^9, 3.552150761436294*^9}, 
   3.5521509768882723`*^9, {3.5521510341403728`*^9, 3.5521510486171985`*^9}, {
   3.5521511118909097`*^9, 3.5521511159313164`*^9}, 3.55215165895267*^9, 
   3.552151705315952*^9, 3.553532182175474*^9, {3.553559669357978*^9, 
   3.553559705888029*^9}, {3.5535602318087654`*^9, 3.5535602417087793`*^9}, 
   3.553617594461242*^9, 3.553617658031331*^9, {3.553617950531741*^9, 
   3.5536179652017612`*^9}, 3.5557731793147464`*^9, 3.5562986064709735`*^9, 
   3.5860254201973715`*^9, 3.586110663591037*^9, 3.586317678224332*^9, 
   3.586456869554533*^9, 3.620161187104122*^9, 3.7163360963165894`*^9, {
   3.7190295717036953`*^9, 3.719029640771646*^9}, 3.7190300827579265`*^9, 
   3.7190304556852565`*^9, {3.7191100105312843`*^9, 3.7191100180177126`*^9}, {
   3.7191114025599036`*^9, 3.7191114301894836`*^9}, {3.719113675256894*^9, 
   3.719113679813155*^9}, 3.7197714106247983`*^9, {3.719774210917966*^9, 
   3.719774210917966*^9}, {3.7212646691176*^9, 3.7212646691176*^9}, 
   3.7212647652310977`*^9, 3.736567677425909*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["c", "2"], " ", 
         SuperscriptBox["d", "2"]}], "-", 
        SuperscriptBox["e", "2"]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.553618024341844*^9, 3.5536194761638765`*^9, {
   3.553619522793942*^9, 3.553619534763959*^9}, {3.5536227075084004`*^9, 
   3.553622710058404*^9}, 3.556299049021593*^9, 3.5860254203073716`*^9, 
   3.5860254790324574`*^9, {3.5860540510467997`*^9, 3.5860540510467997`*^9}, 
   3.5861106638610373`*^9, {3.5861119320828123`*^9, 3.5861119320828123`*^9}, 
   3.5863178468545675`*^9, 3.620161187685156*^9, {3.7164014597993183`*^9, 
   3.7164014600823345`*^9}, {3.7164020991028843`*^9, 3.716402105446247*^9}, {
   3.717698912962572*^9, 3.7176989132045865`*^9}, {3.719029844323289*^9, 
   3.7190298460843897`*^9}, {3.7190300220544543`*^9, 
   3.7190300286868334`*^9}, {3.719036615362367*^9, 3.7190366158153934`*^9}, {
   3.7191100205028543`*^9, 3.7191100674555397`*^9}, 3.71911140966331*^9, {
   3.7191114549779015`*^9, 3.7191114549779015`*^9}, 3.7197714290888543`*^9, {
   3.7197742155972333`*^9, 3.7197742155982337`*^9}, {3.7203177741576686`*^9, 
   3.7203177765008025`*^9}, {3.7212561298405824`*^9, 
   3.7212561652366066`*^9}, {3.7212570255468135`*^9, 
   3.7212570263098574`*^9}, {3.721259419726753*^9, 3.721259436352704*^9}, {
   3.72126466963663*^9, 3.72126466963663*^9}, 3.7212647661571503`*^9, 
   3.7365676793030167`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion and integration by parts", \
"Subsubsection",
 CellChangeTimes->{{3.7190221262688413`*^9, 3.719022129603032*^9}, {
  3.721256308287789*^9, 3.7212563178283343`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"d", "+", 
     RowBox[{"e", " ", "x"}]}]], "\[Equal]", 
   RowBox[{
    FractionBox["c", 
     RowBox[{"e", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"c", " ", "x"}]}], ")"}]}]], "-", 
    FractionBox[
     RowBox[{
      RowBox[{"c", " ", "d"}], "-", "e"}], 
     RowBox[{"e", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"c", " ", "x"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}]}]]}]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.719022181028973*^9, 3.719022181028973*^9}, {
   3.719022443246971*^9, 3.719022443246971*^9}, {3.719769203731571*^9, 
   3.719769203731571*^9}, {3.7197693004221015`*^9, 3.7197693004221015`*^9}, {
   3.721256533038644*^9, 3.721256533038644*^9}, {3.72126543103918*^9, 
   3.72126543103918*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"1", "+", 
     RowBox[{"c", " ", "x"}]}]], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "c"]}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Log", "[", 
      FractionBox["2", 
       RowBox[{"1", "+", 
        RowBox[{"c", " ", "x"}]}]], "]"}]}]}]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.719022181028973*^9, 3.719022181028973*^9}, {
   3.719022443246971*^9, 3.719022443246971*^9}, {3.7190225237215743`*^9, 
   3.7190225237215743`*^9}, {3.7197692042766027`*^9, 
   3.7197692042766027`*^9}, {3.719769358846443*^9, 3.719769358846443*^9}, {
   3.721256845300504*^9, 3.721256845301504*^9}, {3.721257197053623*^9, 
   3.7212571970546236`*^9}, {3.7212577759327335`*^9, 
   3.7212577759327335`*^9}, {3.7212654753497143`*^9, 3.7212654753497143`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"c", " ", "x"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}]}]], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", 
      RowBox[{
       RowBox[{"c", " ", "d"}], "-", "e"}]]}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Log", "[", 
      FractionBox[
       RowBox[{"2", " ", "c", " ", 
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], ")"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"c", " ", "x"}]}], ")"}]}]], "]"}]}]}]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.719022181028973*^9, 3.719022181028973*^9}, {
   3.719022443246971*^9, 3.719022443246971*^9}, {3.7190225237215743`*^9, 
   3.7190225237215743`*^9}, {3.7197692042766027`*^9, 
   3.7197692042766027`*^9}, {3.719769358846443*^9, 3.719769358846443*^9}, {
   3.721256845300504*^9, 3.721256845301504*^9}, {3.7212569267401624`*^9, 
   3.721256966528438*^9}, {3.7212572499136467`*^9, 3.7212572499136467`*^9}, {
   3.7212578574853983`*^9, 3.7212578574863977`*^9}, {3.7212654884394627`*^9, 
   3.7212654884394627`*^9}, {3.7212655211533337`*^9, 3.7212655211533337`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}]}], "\[Equal]", 
   FractionBox[
    RowBox[{"b", " ", "c"}], 
    RowBox[{"1", "-", 
     RowBox[{
      SuperscriptBox["c", "2"], " ", 
      SuperscriptBox["x", "2"]}]}]]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.719022181028973*^9, 3.719022181028973*^9}, {
   3.719022443246971*^9, 3.719022443246971*^9}, {3.7190225237215743`*^9, 
   3.7190225237215743`*^9}, {3.7197692042766027`*^9, 
   3.7197692042766027`*^9}, {3.719769358846443*^9, 3.719769358846443*^9}, {
   3.721256845300504*^9, 3.721256845301504*^9}, {3.7212569267401624`*^9, 
   3.721256966528438*^9}, {3.7212570005343833`*^9, 3.7212570005343833`*^9}, {
   3.721259522813649*^9, 3.721259522813649*^9}, {3.721264767474226*^9, 
   3.721264767474226*^9}, {3.721265541942523*^9, 3.721265541942523*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["c", "2"], " ", 
     SuperscriptBox["d", "2"]}], "-", 
    SuperscriptBox["e", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.492907662576008*^9, 3.4929076635660095`*^9}, {3.4930735907627287`*^9, 
   3.4930736091827545`*^9}, {3.4931451699433565`*^9, 3.493145207453409*^9}, {
   3.4931452956835327`*^9, 3.4931453218235693`*^9}, {3.4931453713536386`*^9, 
   3.4931453747436433`*^9}, 3.4931456018039613`*^9, {3.493146996085913*^9, 
   3.4931470125759363`*^9}, {3.493581126911767*^9, 3.493581143581791*^9}, {
   3.4940337767420216`*^9, 3.494033781042267*^9}, {3.5536195024939137`*^9, 
   3.553619509943924*^9}, {3.5860540517644005`*^9, 3.5860540517644005`*^9}, {
   3.5861119320928125`*^9, 3.5861119320928125`*^9}, {3.716402110429532*^9, 
   3.716402110429532*^9}, {3.7190300465178537`*^9, 3.7190300465178537`*^9}, {
   3.719110077180096*^9, 3.719110077180096*^9}, {3.7191114587851195`*^9, 
   3.7191114587851195`*^9}, {3.7197742164532824`*^9, 
   3.7197742164532824`*^9}, {3.72125703019808*^9, 3.7212570309331217`*^9}, {
   3.721264670428675*^9, 3.721264670428675*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", "x"}], "]"}]}]}], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox["c", "e"]}]}], " ", 
    RowBox[{"\[Integral]", 
     RowBox[{
      FractionBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", "x"}], "]"}]}]}], 
       RowBox[{"1", "+", 
        RowBox[{"c", " ", "x"}]}]], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"c", " ", "d"}], "-", "e"}], "e"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], ")"}]}]], 
     RowBox[{"\[DifferentialD]", 
      RowBox[{
      "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             RowBox[{"ArcTanh", "[", 
              RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], " ", 
          RowBox[{"Log", "[", 
           FractionBox["2", 
            RowBox[{"1", "+", 
             RowBox[{"c", " ", "x"}]}]], "]"}]}], "e"]}]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "c"}], "e"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Log", "[", 
       FractionBox["2", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}]], "]"}], 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["c", "2"], " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"2", " ", "c", " ", 
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}], ")"}]}]], "]"}]}], "e"], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "c"}], "e"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"c", " ", "x"}]}], ")"}]}]], "]"}], 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["c", "2"], " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", 
      RowBox[{
      "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             RowBox[{"ArcTanh", "[", 
              RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], " ", 
          RowBox[{"Log", "[", 
           FractionBox["2", 
            RowBox[{"1", "+", 
             RowBox[{"c", " ", "x"}]}]], "]"}]}], "e"]}]}]}]}]}]}], "+", 
  FractionBox[
   RowBox[{"b", " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"1", "-", 
       FractionBox["2", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}]]}]}], "]"}]}], 
   RowBox[{"2", " ", "e"}]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"2", " ", "c", " ", 
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}], ")"}]}]], "]"}]}], "e"], "-", 
  FractionBox[
   RowBox[{"b", " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"c", " ", "x"}]}], ")"}]}]]}]}], "]"}]}], 
   RowBox[{"2", " ", "e"}]]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, {
   3.5860254201673713`*^9, 3.586025420177371*^9}, {3.586025740007834*^9, 
   3.586025749592848*^9}, {3.5861106634910364`*^9, 3.5861106635110364`*^9}, 
   3.5861109695214653`*^9, {3.716399960384557*^9, 3.7164000301995497`*^9}, {
   3.719022217090036*^9, 3.719022309698333*^9}, {3.7190224174124937`*^9, 
   3.7190224187365694`*^9}, {3.7191102084966073`*^9, 3.719110241092471*^9}, {
   3.7191103566240797`*^9, 3.7191103590142164`*^9}, 3.7197714314679904`*^9, 
   3.719771962538366*^9, {3.721256173993108*^9, 3.7212562474603095`*^9}, 
   3.721256280179181*^9, {3.7212565481525087`*^9, 3.72125664276892*^9}, {
   3.721256737410333*^9, 3.7212567383163853`*^9}, {3.7212567727213526`*^9, 
   3.7212567746164613`*^9}, {3.721257065478098*^9, 3.7212570959278393`*^9}, {
   3.7212572915360274`*^9, 3.721257299660492*^9}, {3.72125733512152*^9, 
   3.7212573488553057`*^9}, {3.721257400312249*^9, 3.7212574197473607`*^9}, {
   3.7212578891482086`*^9, 3.7212579090773487`*^9}, {3.7212579432153015`*^9, 
   3.721257977251248*^9}, {3.721259440862962*^9, 3.721259491689869*^9}, {
   3.721259530065064*^9, 3.721259543002804*^9}, {3.7212595889734335`*^9, 
   3.721259640433377*^9}, {3.721264767984255*^9, 3.721264770608405*^9}, {
   3.721265207557397*^9, 3.721265283884763*^9}, {3.721265318501743*^9, 
   3.721265320779873*^9}, {3.721265355535861*^9, 3.721265386656641*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"2", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"c", "*", "x"}]}], ")"}]}], "]"}], "/", "e"}]}], " ", "+", 
    " ", "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", 
     RowBox[{"c", "/", "e"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"2", "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"c", "*", "x"}]}], ")"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"c", "^", "2"}], "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}]}], " ", 
    "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"2", "*", "c", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}], "]"}], "/", 
      "e"}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"b", "*", 
     RowBox[{"c", "/", "e"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"c", "^", "2"}], "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"c", "^", "2"}], "*", 
        RowBox[{"d", "^", "2"}]}], "-", 
       RowBox[{"e", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4927475229037466`*^9, 3.4927477533449273`*^9}, {
   3.4927478131093454`*^9, 3.492747834183551*^9}, {3.4927478811922398`*^9, 
   3.4927479273238783`*^9}, {3.492747994901744*^9, 3.4927480520830145`*^9}, {
   3.492748126383264*^9, 3.492748126897293*^9}, {3.492799196725788*^9, 
   3.4927992401718645`*^9}, {3.4927992767227287`*^9, 
   3.4927993156759973`*^9}, {3.4927994994131203`*^9, 3.492799508102335*^9}, {
   3.492799544387999*^9, 3.4927995657444363`*^9}, {3.4927996261789427`*^9, 
   3.492799660327403*^9}, {3.4927997257383175`*^9, 3.4927997433351483`*^9}, {
   3.4927998179656796`*^9, 3.4927998331289062`*^9}, {3.4928379334601374`*^9, 
   3.492837939216548*^9}, {3.4928380301959076`*^9, 3.4928380706935787`*^9}, {
   3.4928381256836753`*^9, 3.492838126026876*^9}, {3.492838194448596*^9, 
   3.492838214806632*^9}, {3.4928386496573954`*^9, 3.4928386538382025`*^9}, {
   3.4928387393419533`*^9, 3.4928388738453894`*^9}, {3.4928392099891806`*^9, 
   3.4928392282724123`*^9}, {3.4928392656204743`*^9, 3.492839265890475*^9}, {
   3.4928393374405746`*^9, 3.492839337970576*^9}, 3.4928413413933806`*^9, {
   3.4930740306333447`*^9, 3.4930740321133466`*^9}, {3.493144462352366*^9, 
   3.493144468172374*^9}, {3.493144540822476*^9, 3.4931445433324795`*^9}, {
   3.4931445892825437`*^9, 3.4931445898425446`*^9}, {3.493145449723748*^9, 
   3.493145475833785*^9}, {3.49358106455168*^9, 3.493581066611683*^9}, {
   3.493748575803213*^9, 3.4937486011688576`*^9}, {3.4940008713785477`*^9, 
   3.4940008713835483`*^9}, {3.49402332003436*^9, 3.4940233203603783`*^9}, {
   3.4940349261607647`*^9, 3.494034948444039*^9}, {3.494037644559248*^9, 
   3.494037647619423*^9}, 3.548732411214406*^9, 3.548732673066383*^9, {
   3.5536194818838844`*^9, 3.553619489273895*^9}, {3.5860255405475454`*^9, 
   3.5860255405575457`*^9}, {3.5860256114501486`*^9, 3.5860256114501486`*^9}, 
   3.586025658395217*^9, 3.5860264994089313`*^9, 3.5860538480748425`*^9, 
   3.5860539041101413`*^9, {3.5860539762914677`*^9, 3.586053998443507*^9}, {
   3.5860540741940403`*^9, 3.5860540777352467`*^9}, {3.586110663891037*^9, 
   3.5861106639110374`*^9}, 3.586110993071498*^9, 3.5861119420428267`*^9, 
   3.7061413610379276`*^9, 3.7152316664656773`*^9, {3.715232060397209*^9, 
   3.7152320606312227`*^9}, {3.7164021230032516`*^9, 3.716402130165661*^9}, 
   3.716402163736581*^9, {3.7185734111476774`*^9, 3.7185734227423406`*^9}, {
   3.71858038554459*^9, 3.718580393845065*^9}, {3.7190300586855497`*^9, 
   3.719030060601659*^9}, {3.719110290560301*^9, 3.719110315520728*^9}, {
   3.7191103863507795`*^9, 3.7191104193026648`*^9}, 3.7191114639644156`*^9, 
   3.719771432112027*^9, 3.719771972949961*^9, 3.7197742735765495`*^9, {
   3.720285923405246*^9, 3.720285928678055*^9}, {3.721257501157017*^9, 
   3.721257520153104*^9}, {3.7212581487360563`*^9, 3.7212581770246744`*^9}, {
   3.721259737360921*^9, 3.721259741628165*^9}, 3.721264718873446*^9, {
   3.721264771233441*^9, 3.7212647718174744`*^9}, {3.7212655826768527`*^9, 
   3.7212655919033804`*^9}, {3.7212656260343323`*^9, 3.7212656733720403`*^9}, 
   3.7213229022784634`*^9, 3.7213229526233425`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"ArcCoth", "[", 
         RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"2", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"c", "*", "x"}]}], ")"}]}], "]"}], "/", "e"}]}], " ", "+", 
    " ", "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", 
     RowBox[{"c", "/", "e"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"2", "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"c", "*", "x"}]}], ")"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"c", "^", "2"}], "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}]}], " ", 
    "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", 
        RowBox[{"ArcCoth", "[", 
         RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"2", "*", "c", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}], "]"}], "/", 
      "e"}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"b", "*", 
     RowBox[{"c", "/", "e"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"c", "^", "2"}], "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"c", "^", "2"}], "*", 
        RowBox[{"d", "^", "2"}]}], "-", 
       RowBox[{"e", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4927475229037466`*^9, 3.4927477533449273`*^9}, {
   3.4927478131093454`*^9, 3.492747834183551*^9}, {3.4927478811922398`*^9, 
   3.4927479273238783`*^9}, {3.492747994901744*^9, 3.4927480520830145`*^9}, {
   3.492748126383264*^9, 3.492748126897293*^9}, {3.492799196725788*^9, 
   3.4927992401718645`*^9}, {3.4927992767227287`*^9, 
   3.4927993156759973`*^9}, {3.4927994994131203`*^9, 3.492799508102335*^9}, {
   3.492799544387999*^9, 3.4927995657444363`*^9}, {3.4927996261789427`*^9, 
   3.492799660327403*^9}, {3.4927997257383175`*^9, 3.4927997433351483`*^9}, {
   3.4927998179656796`*^9, 3.4927998331289062`*^9}, {3.4928379334601374`*^9, 
   3.492837939216548*^9}, {3.4928380301959076`*^9, 3.4928380706935787`*^9}, {
   3.4928381256836753`*^9, 3.492838126026876*^9}, {3.492838194448596*^9, 
   3.492838214806632*^9}, {3.4928386496573954`*^9, 3.4928386538382025`*^9}, {
   3.4928387393419533`*^9, 3.4928388738453894`*^9}, {3.4928392099891806`*^9, 
   3.4928392282724123`*^9}, {3.4928392656204743`*^9, 3.492839265890475*^9}, {
   3.4928393374405746`*^9, 3.492839337970576*^9}, 3.4928413413933806`*^9, {
   3.4930740306333447`*^9, 3.4930740321133466`*^9}, {3.493144462352366*^9, 
   3.493144468172374*^9}, {3.493144540822476*^9, 3.4931445433324795`*^9}, {
   3.4931445892825437`*^9, 3.4931445898425446`*^9}, {3.493145449723748*^9, 
   3.493145475833785*^9}, {3.49358106455168*^9, 3.493581066611683*^9}, {
   3.493748575803213*^9, 3.4937486011688576`*^9}, {3.4940008713785477`*^9, 
   3.4940008713835483`*^9}, {3.49402332003436*^9, 3.4940233203603783`*^9}, {
   3.4940349261607647`*^9, 3.494034948444039*^9}, {3.494037644559248*^9, 
   3.494037647619423*^9}, 3.548732411214406*^9, 3.548732673066383*^9, {
   3.5536194818838844`*^9, 3.553619489273895*^9}, {3.5860255405475454`*^9, 
   3.5860255405575457`*^9}, {3.5860256114501486`*^9, 3.5860256114501486`*^9}, 
   3.586025658395217*^9, 3.5860264994089313`*^9, 3.5860538480748425`*^9, 
   3.5860539041101413`*^9, {3.5860539762914677`*^9, 3.586053998443507*^9}, {
   3.5860540741940403`*^9, 3.5860540777352467`*^9}, {3.586110663891037*^9, 
   3.5861106639110374`*^9}, 3.586110993071498*^9, 3.5861119420428267`*^9, 
   3.7061413610379276`*^9, 3.7152316664656773`*^9, {3.715232060397209*^9, 
   3.7152320606312227`*^9}, {3.7164021230032516`*^9, 3.716402130165661*^9}, 
   3.716402163736581*^9, {3.7185734111476774`*^9, 3.7185734227423406`*^9}, {
   3.71858038554459*^9, 3.718580393845065*^9}, {3.7190300586855497`*^9, 
   3.719030060601659*^9}, {3.719110290560301*^9, 3.719110315520728*^9}, {
   3.7191103863507795`*^9, 3.7191104193026648`*^9}, 3.7191114639644156`*^9, 
   3.719771432112027*^9, 3.719771972949961*^9, 3.7197742735765495`*^9, {
   3.720285923405246*^9, 3.720285928678055*^9}, {3.721257501157017*^9, 
   3.721257520153104*^9}, {3.7212581487360563`*^9, 3.7212581770246744`*^9}, {
   3.721259737360921*^9, 3.721259741628165*^9}, 3.721264718873446*^9, {
   3.721264771233441*^9, 3.7212647718174744`*^9}, {3.7212655826768527`*^9, 
   3.7212655919033804`*^9}, {3.7212656260343323`*^9, 3.7212656733720403`*^9}, 
   3.7213229022784634`*^9, {3.7213229526233425`*^9, 3.721322987332328*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "2"], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["c", "2"], " ", 
         SuperscriptBox["d", "2"]}], "-", 
        SuperscriptBox["e", "2"]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.553618024341844*^9, 3.5536194761638765`*^9, {
   3.553619522793942*^9, 3.553619534763959*^9}, {3.5536227075084004`*^9, 
   3.553622710058404*^9}, 3.556299049021593*^9, 3.5860254203073716`*^9, 
   3.5860254790324574`*^9, {3.5860540510467997`*^9, 3.5860540510467997`*^9}, 
   3.5861106638610373`*^9, {3.5861119320828123`*^9, 3.5861119320828123`*^9}, 
   3.5863178468545675`*^9, 3.620161187685156*^9, {3.7164014597993183`*^9, 
   3.7164014600823345`*^9}, {3.7164020991028843`*^9, 3.716402105446247*^9}, {
   3.717698912962572*^9, 3.7176989132045865`*^9}, {3.719029844323289*^9, 
   3.7190298460843897`*^9}, {3.7190300220544543`*^9, 
   3.7190300286868334`*^9}, {3.719036615362367*^9, 3.7190366158153934`*^9}, {
   3.7191100205028543`*^9, 3.7191100674555397`*^9}, 3.71911140966331*^9, {
   3.7191114549779015`*^9, 3.7191114549779015`*^9}, 3.7197714290888543`*^9, {
   3.7197742155972333`*^9, 3.7197742155982337`*^9}, {3.7203177741576686`*^9, 
   3.7203177765008025`*^9}, {3.7212561298405824`*^9, 
   3.7212561652366066`*^9}, {3.7212570255468135`*^9, 
   3.7212570263098574`*^9}, {3.7212646712207203`*^9, 3.7212646712207203`*^9}, 
   3.721264772061488*^9, 3.7365676800000563`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion and integration by parts", \
"Subsubsection",
 CellChangeTimes->{{3.7190221262688413`*^9, 3.719022129603032*^9}, {
  3.721256308287789*^9, 3.7212563178283343`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"d", "+", 
     RowBox[{"e", " ", "x"}]}]], "\[Equal]", 
   RowBox[{
    FractionBox["c", 
     RowBox[{"e", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"c", " ", "x"}]}], ")"}]}]], "-", 
    FractionBox[
     RowBox[{
      RowBox[{"c", " ", "d"}], "-", "e"}], 
     RowBox[{"e", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"c", " ", "x"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}]}]]}]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.719022181028973*^9, 3.719022181028973*^9}, {
   3.719022443246971*^9, 3.719022443246971*^9}, {3.719769203731571*^9, 
   3.719769203731571*^9}, {3.7197693004221015`*^9, 3.7197693004221015`*^9}, {
   3.721256533038644*^9, 3.721256533038644*^9}, {3.72126543103918*^9, 
   3.72126543103918*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"1", "+", 
     RowBox[{"c", " ", "x"}]}]], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "c"]}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Log", "[", 
      FractionBox["2", 
       RowBox[{"1", "+", 
        RowBox[{"c", " ", "x"}]}]], "]"}]}]}]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.719022181028973*^9, 3.719022181028973*^9}, {
   3.719022443246971*^9, 3.719022443246971*^9}, {3.7190225237215743`*^9, 
   3.7190225237215743`*^9}, {3.7197692042766027`*^9, 
   3.7197692042766027`*^9}, {3.719769358846443*^9, 3.719769358846443*^9}, {
   3.721256845300504*^9, 3.721256845301504*^9}, {3.721257197053623*^9, 
   3.7212571970546236`*^9}, {3.7212577759327335`*^9, 
   3.7212577759327335`*^9}, {3.7212654753497143`*^9, 3.7212654753497143`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"c", " ", "x"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}]}]], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", 
      RowBox[{
       RowBox[{"c", " ", "d"}], "-", "e"}]]}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Log", "[", 
      FractionBox[
       RowBox[{"2", " ", "c", " ", 
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], ")"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"c", " ", "x"}]}], ")"}]}]], "]"}]}]}]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.719022181028973*^9, 3.719022181028973*^9}, {
   3.719022443246971*^9, 3.719022443246971*^9}, {3.7190225237215743`*^9, 
   3.7190225237215743`*^9}, {3.7197692042766027`*^9, 
   3.7197692042766027`*^9}, {3.719769358846443*^9, 3.719769358846443*^9}, {
   3.721256845300504*^9, 3.721256845301504*^9}, {3.7212569267401624`*^9, 
   3.721256966528438*^9}, {3.7212572499136467`*^9, 3.7212572499136467`*^9}, {
   3.7212578574853983`*^9, 3.7212578574863977`*^9}, {3.7212654884394627`*^9, 
   3.7212654884394627`*^9}, {3.7212655211533337`*^9, 3.7212655211533337`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "2"]}], "\[Equal]", 
   FractionBox[
    RowBox[{"2", " ", "b", " ", "c", " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}]}], 
    RowBox[{"1", "-", 
     RowBox[{
      SuperscriptBox["c", "2"], " ", 
      SuperscriptBox["x", "2"]}]}]]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.719022181028973*^9, 3.719022181028973*^9}, {
   3.719022443246971*^9, 3.719022443246971*^9}, {3.7190225237215743`*^9, 
   3.7190225237215743`*^9}, {3.7197692042766027`*^9, 
   3.7197692042766027`*^9}, {3.719769358846443*^9, 3.719769358846443*^9}, {
   3.721256845300504*^9, 3.721256845301504*^9}, {3.7212569267401624`*^9, 
   3.721256966528438*^9}, {3.7212570005343833`*^9, 3.7212570005343833`*^9}, {
   3.7212647723625054`*^9, 3.7212647728905354`*^9}, {3.7212658530263157`*^9, 
   3.7212658530263157`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["c", "2"], " ", 
     SuperscriptBox["d", "2"]}], "-", 
    SuperscriptBox["e", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.492907662576008*^9, 3.4929076635660095`*^9}, {3.4930735907627287`*^9, 
   3.4930736091827545`*^9}, {3.4931451699433565`*^9, 3.493145207453409*^9}, {
   3.4931452956835327`*^9, 3.4931453218235693`*^9}, {3.4931453713536386`*^9, 
   3.4931453747436433`*^9}, 3.4931456018039613`*^9, {3.493146996085913*^9, 
   3.4931470125759363`*^9}, {3.493581126911767*^9, 3.493581143581791*^9}, {
   3.4940337767420216`*^9, 3.494033781042267*^9}, {3.5536195024939137`*^9, 
   3.553619509943924*^9}, {3.5860540517644005`*^9, 3.5860540517644005`*^9}, {
   3.5861119320928125`*^9, 3.5861119320928125`*^9}, {3.716402110429532*^9, 
   3.716402110429532*^9}, {3.7190300465178537`*^9, 3.7190300465178537`*^9}, {
   3.719110077180096*^9, 3.719110077180096*^9}, {3.7191114587851195`*^9, 
   3.7191114587851195`*^9}, {3.7197742164532824`*^9, 
   3.7197742164532824`*^9}, {3.72125703019808*^9, 3.7212570309331217`*^9}, {
   3.721264671808754*^9, 3.721264671808754*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "2"], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox["c", "e"]}]}], " ", 
    RowBox[{"\[Integral]", 
     RowBox[{
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "2"], 
       RowBox[{"1", "+", 
        RowBox[{"c", " ", "x"}]}]], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"c", " ", "d"}], "-", "e"}], "e"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "2"], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], ")"}]}]], 
     RowBox[{"\[DifferentialD]", 
      RowBox[{
      "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", 
              RowBox[{"ArcTanh", "[", 
               RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "2"], " ", 
          RowBox[{"Log", "[", 
           FractionBox["2", 
            RowBox[{"1", "+", 
             RowBox[{"c", " ", "x"}]}]], "]"}]}], "e"]}]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "b", " ", "c"}], "e"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox["2", 
         RowBox[{"1", "+", 
          RowBox[{"c", " ", "x"}]}]], "]"}]}], 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["c", "2"], " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", "\[IndentingNewLine]", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "2"], " ", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"2", " ", "c", " ", 
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}], ")"}]}]], "]"}]}], "e"], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "b", " ", "c"}], "e"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{"2", " ", "c", " ", 
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], ")"}]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"c", " ", "x"}]}], ")"}]}]], "]"}]}], 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["c", "2"], " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", 
      RowBox[{
      "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", 
              RowBox[{"ArcTanh", "[", 
               RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "2"], " ", 
          RowBox[{"Log", "[", 
           FractionBox["2", 
            RowBox[{"1", "+", 
             RowBox[{"c", " ", "x"}]}]], "]"}]}], "e"]}]}]}]}]}]}], "+", 
  FractionBox[
   RowBox[{"b", " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"1", "-", 
       FractionBox["2", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}]]}]}], "]"}]}], "e"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["b", "2"], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"3", ",", 
      RowBox[{"1", "-", 
       FractionBox["2", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}]]}]}], "]"}]}], 
   RowBox[{"2", " ", "e"}]], "+", "\[IndentingNewLine]", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "2"], " ", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"2", " ", "c", " ", 
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}], ")"}]}]], "]"}]}], "e"], "-", 
  FractionBox[
   RowBox[{"b", " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"c", " ", "x"}]}], ")"}]}]]}]}], "]"}]}], "e"], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["b", "2"], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"3", ",", 
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"c", " ", "x"}]}], ")"}]}]]}]}], "]"}]}], 
   RowBox[{"2", " ", "e"}]]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, {
   3.5860254201673713`*^9, 3.586025420177371*^9}, {3.586025740007834*^9, 
   3.586025749592848*^9}, {3.5861106634910364`*^9, 3.5861106635110364`*^9}, 
   3.5861109695214653`*^9, {3.716399960384557*^9, 3.7164000301995497`*^9}, {
   3.719022217090036*^9, 3.719022309698333*^9}, {3.7190224174124937`*^9, 
   3.7190224187365694`*^9}, {3.7191102084966073`*^9, 3.719110241092471*^9}, {
   3.7191103566240797`*^9, 3.7191103590142164`*^9}, 3.7197714314679904`*^9, 
   3.719771962538366*^9, {3.721256173993108*^9, 3.7212562474603095`*^9}, 
   3.721256280179181*^9, {3.7212565481525087`*^9, 3.72125664276892*^9}, {
   3.721256737410333*^9, 3.7212567383163853`*^9}, {3.7212567727213526`*^9, 
   3.7212567746164613`*^9}, {3.721257065478098*^9, 3.7212570959278393`*^9}, {
   3.7212572915360274`*^9, 3.721257299660492*^9}, {3.72125733512152*^9, 
   3.7212573488553057`*^9}, {3.721257400312249*^9, 3.7212574197473607`*^9}, {
   3.7212578891482086`*^9, 3.7212579090773487`*^9}, {3.7212579432153015`*^9, 
   3.721257977251248*^9}, {3.7212647733035593`*^9, 3.7212647760747175`*^9}, {
   3.7212659106016088`*^9, 3.721265918954087*^9}, {3.721265949340825*^9, 
   3.721266046145362*^9}, {3.7212661316012497`*^9, 3.7212661427748885`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "^", "2"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "2"}]}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"2", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"c", "*", "x"}]}], ")"}]}], "]"}], "/", "e"}]}], " ", "+", 
    " ", "\n", "  ", 
    RowBox[{"b", "*", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"c", "*", "x"}]}], ")"}]}]}]}], "]"}], "/", "e"}]}], " ", 
    "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"3", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"c", "*", "x"}]}], ")"}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "e"}], ")"}]}]}], " ", "+", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "2"}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"2", "*", "c", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}], "]"}], "/", 
      "e"}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"b", "*", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}]}]}], "]"}], "/", 
      "e"}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"3", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "e"}], ")"}]}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"c", "^", "2"}], "*", 
        RowBox[{"d", "^", "2"}]}], "-", 
       RowBox[{"e", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4927475229037466`*^9, 3.4927477533449273`*^9}, {
   3.4927478131093454`*^9, 3.492747834183551*^9}, {3.4927478811922398`*^9, 
   3.4927479273238783`*^9}, {3.492747994901744*^9, 3.4927480520830145`*^9}, {
   3.492748126383264*^9, 3.492748126897293*^9}, {3.492799196725788*^9, 
   3.4927992401718645`*^9}, {3.4927992767227287`*^9, 
   3.4927993156759973`*^9}, {3.4927994994131203`*^9, 3.492799508102335*^9}, {
   3.492799544387999*^9, 3.4927995657444363`*^9}, {3.4927996261789427`*^9, 
   3.492799660327403*^9}, {3.4927997257383175`*^9, 3.4927997433351483`*^9}, {
   3.4927998179656796`*^9, 3.4927998331289062`*^9}, {3.4928379334601374`*^9, 
   3.492837939216548*^9}, {3.4928380301959076`*^9, 3.4928380706935787`*^9}, {
   3.4928381256836753`*^9, 3.492838126026876*^9}, {3.492838194448596*^9, 
   3.492838214806632*^9}, {3.4928386496573954`*^9, 3.4928386538382025`*^9}, {
   3.4928387393419533`*^9, 3.4928388738453894`*^9}, {3.4928392099891806`*^9, 
   3.4928392282724123`*^9}, {3.4928392656204743`*^9, 3.492839265890475*^9}, {
   3.4928393374405746`*^9, 3.492839337970576*^9}, 3.4928413413933806`*^9, {
   3.4930740306333447`*^9, 3.4930740321133466`*^9}, {3.493144462352366*^9, 
   3.493144468172374*^9}, {3.493144540822476*^9, 3.4931445433324795`*^9}, {
   3.4931445892825437`*^9, 3.4931445898425446`*^9}, {3.493145449723748*^9, 
   3.493145475833785*^9}, {3.49358106455168*^9, 3.493581066611683*^9}, {
   3.493748575803213*^9, 3.4937486011688576`*^9}, {3.4940008713785477`*^9, 
   3.4940008713835483`*^9}, {3.49402332003436*^9, 3.4940233203603783`*^9}, {
   3.4940349261607647`*^9, 3.494034948444039*^9}, {3.494037644559248*^9, 
   3.494037647619423*^9}, 3.548732411214406*^9, 3.548732673066383*^9, {
   3.5536194818838844`*^9, 3.553619489273895*^9}, {3.5860255405475454`*^9, 
   3.5860255405575457`*^9}, {3.5860256114501486`*^9, 3.5860256114501486`*^9}, 
   3.586025658395217*^9, 3.5860264994089313`*^9, 3.5860538480748425`*^9, 
   3.5860539041101413`*^9, {3.5860539762914677`*^9, 3.586053998443507*^9}, {
   3.5860540741940403`*^9, 3.5860540777352467`*^9}, {3.586110663891037*^9, 
   3.5861106639110374`*^9}, 3.586110993071498*^9, 3.5861119420428267`*^9, 
   3.7061413610379276`*^9, 3.7152316664656773`*^9, {3.715232060397209*^9, 
   3.7152320606312227`*^9}, {3.7164021230032516`*^9, 3.716402130165661*^9}, 
   3.716402163736581*^9, {3.7185734111476774`*^9, 3.7185734227423406`*^9}, {
   3.71858038554459*^9, 3.718580393845065*^9}, {3.7190300586855497`*^9, 
   3.719030060601659*^9}, {3.719110290560301*^9, 3.719110315520728*^9}, {
   3.7191103863507795`*^9, 3.7191104193026648`*^9}, 3.7191114639644156`*^9, 
   3.719771432112027*^9, 3.719771972949961*^9, 3.7197742735765495`*^9, {
   3.720285923405246*^9, 3.720285928678055*^9}, {3.721257501157017*^9, 
   3.721257520153104*^9}, {3.7212581487360563`*^9, 3.7212581770246744`*^9}, 
   3.721264719883504*^9, {3.721264776377735*^9, 3.721264777915823*^9}, {
   3.721266165754203*^9, 3.7212662149690175`*^9}, {3.721266247331869*^9, 
   3.7212662523131533`*^9}, {3.7212662865411115`*^9, 3.7212662867001204`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "^", "2"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcCoth", "[", 
           RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "2"}]}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"2", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"c", "*", "x"}]}], ")"}]}], "]"}], "/", "e"}]}], " ", "+", 
    " ", "\n", "  ", 
    RowBox[{"b", "*", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", 
        RowBox[{"ArcCoth", "[", 
         RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"c", "*", "x"}]}], ")"}]}]}]}], "]"}], "/", "e"}]}], " ", 
    "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"3", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"c", "*", "x"}]}], ")"}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "e"}], ")"}]}]}], " ", "+", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "2"}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"2", "*", "c", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}], "]"}], "/", 
      "e"}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"b", "*", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", 
        RowBox[{"ArcCoth", "[", 
         RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}]}]}], "]"}], "/", 
      "e"}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"3", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "e"}], ")"}]}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"c", "^", "2"}], "*", 
        RowBox[{"d", "^", "2"}]}], "-", 
       RowBox[{"e", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4927475229037466`*^9, 3.4927477533449273`*^9}, {
   3.4927478131093454`*^9, 3.492747834183551*^9}, {3.4927478811922398`*^9, 
   3.4927479273238783`*^9}, {3.492747994901744*^9, 3.4927480520830145`*^9}, {
   3.492748126383264*^9, 3.492748126897293*^9}, {3.492799196725788*^9, 
   3.4927992401718645`*^9}, {3.4927992767227287`*^9, 
   3.4927993156759973`*^9}, {3.4927994994131203`*^9, 3.492799508102335*^9}, {
   3.492799544387999*^9, 3.4927995657444363`*^9}, {3.4927996261789427`*^9, 
   3.492799660327403*^9}, {3.4927997257383175`*^9, 3.4927997433351483`*^9}, {
   3.4927998179656796`*^9, 3.4927998331289062`*^9}, {3.4928379334601374`*^9, 
   3.492837939216548*^9}, {3.4928380301959076`*^9, 3.4928380706935787`*^9}, {
   3.4928381256836753`*^9, 3.492838126026876*^9}, {3.492838194448596*^9, 
   3.492838214806632*^9}, {3.4928386496573954`*^9, 3.4928386538382025`*^9}, {
   3.4928387393419533`*^9, 3.4928388738453894`*^9}, {3.4928392099891806`*^9, 
   3.4928392282724123`*^9}, {3.4928392656204743`*^9, 3.492839265890475*^9}, {
   3.4928393374405746`*^9, 3.492839337970576*^9}, 3.4928413413933806`*^9, {
   3.4930740306333447`*^9, 3.4930740321133466`*^9}, {3.493144462352366*^9, 
   3.493144468172374*^9}, {3.493144540822476*^9, 3.4931445433324795`*^9}, {
   3.4931445892825437`*^9, 3.4931445898425446`*^9}, {3.493145449723748*^9, 
   3.493145475833785*^9}, {3.49358106455168*^9, 3.493581066611683*^9}, {
   3.493748575803213*^9, 3.4937486011688576`*^9}, {3.4940008713785477`*^9, 
   3.4940008713835483`*^9}, {3.49402332003436*^9, 3.4940233203603783`*^9}, {
   3.4940349261607647`*^9, 3.494034948444039*^9}, {3.494037644559248*^9, 
   3.494037647619423*^9}, 3.548732411214406*^9, 3.548732673066383*^9, {
   3.5536194818838844`*^9, 3.553619489273895*^9}, {3.5860255405475454`*^9, 
   3.5860255405575457`*^9}, {3.5860256114501486`*^9, 3.5860256114501486`*^9}, 
   3.586025658395217*^9, 3.5860264994089313`*^9, 3.5860538480748425`*^9, 
   3.5860539041101413`*^9, {3.5860539762914677`*^9, 3.586053998443507*^9}, {
   3.5860540741940403`*^9, 3.5860540777352467`*^9}, {3.586110663891037*^9, 
   3.5861106639110374`*^9}, 3.586110993071498*^9, 3.5861119420428267`*^9, 
   3.7061413610379276`*^9, 3.7152316664656773`*^9, {3.715232060397209*^9, 
   3.7152320606312227`*^9}, {3.7164021230032516`*^9, 3.716402130165661*^9}, 
   3.716402163736581*^9, {3.7185734111476774`*^9, 3.7185734227423406`*^9}, {
   3.71858038554459*^9, 3.718580393845065*^9}, {3.7190300586855497`*^9, 
   3.719030060601659*^9}, {3.719110290560301*^9, 3.719110315520728*^9}, {
   3.7191103863507795`*^9, 3.7191104193026648`*^9}, 3.7191114639644156`*^9, 
   3.719771432112027*^9, 3.719771972949961*^9, 3.7197742735765495`*^9, {
   3.720285923405246*^9, 3.720285928678055*^9}, {3.721257501157017*^9, 
   3.721257520153104*^9}, {3.7212581487360563`*^9, 3.7212581770246744`*^9}, 
   3.721264719883504*^9, {3.721264776377735*^9, 3.721264777915823*^9}, {
   3.721266165754203*^9, 3.7212662149690175`*^9}, {3.721266247331869*^9, 
   3.7212662523131533`*^9}, {3.7212662865411115`*^9, 3.7212663139686804`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "3"], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["c", "2"], " ", 
         SuperscriptBox["d", "2"]}], "-", 
        SuperscriptBox["e", "2"]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.553618024341844*^9, 3.5536194761638765`*^9, {
   3.553619522793942*^9, 3.553619534763959*^9}, {3.5536227075084004`*^9, 
   3.553622710058404*^9}, 3.556299049021593*^9, 3.5860254203073716`*^9, 
   3.5860254790324574`*^9, {3.5860540510467997`*^9, 3.5860540510467997`*^9}, 
   3.5861106638610373`*^9, {3.5861119320828123`*^9, 3.5861119320828123`*^9}, 
   3.5863178468545675`*^9, 3.620161187685156*^9, {3.7164014597993183`*^9, 
   3.7164014600823345`*^9}, {3.7164020991028843`*^9, 3.716402105446247*^9}, {
   3.717698912962572*^9, 3.7176989132045865`*^9}, {3.719029844323289*^9, 
   3.7190298460843897`*^9}, {3.7190300220544543`*^9, 
   3.7190300286868334`*^9}, {3.719036615362367*^9, 3.7190366158153934`*^9}, {
   3.7191100205028543`*^9, 3.7191100674555397`*^9}, 3.71911140966331*^9, {
   3.7191114549779015`*^9, 3.7191114549779015`*^9}, 3.7197714290888543`*^9, {
   3.7197742155972333`*^9, 3.7197742155982337`*^9}, {3.7203177741576686`*^9, 
   3.7203177765008025`*^9}, {3.7212561298405824`*^9, 
   3.7212561652366066`*^9}, {3.7212570255468135`*^9, 3.7212570263098574`*^9}, 
   3.7212585117018166`*^9, {3.721259257802491*^9, 3.7212592580385046`*^9}, {
   3.721264672460791*^9, 3.721264672460791*^9}, 3.7212647782378416`*^9, 
   3.7365676805730886`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion and integration by parts", \
"Subsubsection",
 CellChangeTimes->{{3.7190221262688413`*^9, 3.719022129603032*^9}, {
  3.721256308287789*^9, 3.7212563178283343`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"d", "+", 
     RowBox[{"e", " ", "x"}]}]], "\[Equal]", 
   RowBox[{
    FractionBox["c", 
     RowBox[{"e", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"c", " ", "x"}]}], ")"}]}]], "-", 
    FractionBox[
     RowBox[{
      RowBox[{"c", " ", "d"}], "-", "e"}], 
     RowBox[{"e", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"c", " ", "x"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}]}]]}]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.719022181028973*^9, 3.719022181028973*^9}, {
   3.719022443246971*^9, 3.719022443246971*^9}, {3.719769203731571*^9, 
   3.719769203731571*^9}, {3.7197693004221015`*^9, 3.7197693004221015`*^9}, {
   3.721256533038644*^9, 3.721256533038644*^9}, {3.72126543103918*^9, 
   3.72126543103918*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"1", "+", 
     RowBox[{"c", " ", "x"}]}]], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "c"]}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Log", "[", 
      FractionBox["2", 
       RowBox[{"1", "+", 
        RowBox[{"c", " ", "x"}]}]], "]"}]}]}]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.719022181028973*^9, 3.719022181028973*^9}, {
   3.719022443246971*^9, 3.719022443246971*^9}, {3.7190225237215743`*^9, 
   3.7190225237215743`*^9}, {3.7197692042766027`*^9, 
   3.7197692042766027`*^9}, {3.719769358846443*^9, 3.719769358846443*^9}, {
   3.721256845300504*^9, 3.721256845301504*^9}, {3.721257197053623*^9, 
   3.7212571970546236`*^9}, {3.7212577759327335`*^9, 
   3.7212577759327335`*^9}, {3.7212654753497143`*^9, 3.7212654753497143`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"c", " ", "x"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}]}]], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", 
      RowBox[{
       RowBox[{"c", " ", "d"}], "-", "e"}]]}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Log", "[", 
      FractionBox[
       RowBox[{"2", " ", "c", " ", 
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], ")"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"c", " ", "x"}]}], ")"}]}]], "]"}]}]}]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.719022181028973*^9, 3.719022181028973*^9}, {
   3.719022443246971*^9, 3.719022443246971*^9}, {3.7190225237215743`*^9, 
   3.7190225237215743`*^9}, {3.7197692042766027`*^9, 
   3.7197692042766027`*^9}, {3.719769358846443*^9, 3.719769358846443*^9}, {
   3.721256845300504*^9, 3.721256845301504*^9}, {3.7212569267401624`*^9, 
   3.721256966528438*^9}, {3.7212572499136467`*^9, 3.7212572499136467`*^9}, {
   3.7212578574853983`*^9, 3.7212578574863977`*^9}, {3.7212654884394627`*^9, 
   3.7212654884394627`*^9}, {3.7212655211533337`*^9, 3.7212655211533337`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "3"]}], "\[Equal]", 
   FractionBox[
    RowBox[{"3", " ", "b", " ", "c", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "2"]}], 
    RowBox[{"1", "-", 
     RowBox[{
      SuperscriptBox["c", "2"], " ", 
      SuperscriptBox["x", "2"]}]}]]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.719022181028973*^9, 3.719022181028973*^9}, {
   3.719022443246971*^9, 3.719022443246971*^9}, {3.7190225237215743`*^9, 
   3.7190225237215743`*^9}, {3.7197692042766027`*^9, 
   3.7197692042766027`*^9}, {3.719769358846443*^9, 3.719769358846443*^9}, {
   3.721256845300504*^9, 3.721256845301504*^9}, {3.7212569267401624`*^9, 
   3.721256966528438*^9}, {3.7212570005343833`*^9, 3.7212570005343833`*^9}, {
   3.7212585951945925`*^9, 3.7212586236512203`*^9}, {3.721264778634864*^9, 
   3.7212647789308815`*^9}, {3.7212663665256863`*^9, 3.7212663665256863`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["c", "2"], " ", 
     SuperscriptBox["d", "2"]}], "-", 
    SuperscriptBox["e", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.492907662576008*^9, 3.4929076635660095`*^9}, {3.4930735907627287`*^9, 
   3.4930736091827545`*^9}, {3.4931451699433565`*^9, 3.493145207453409*^9}, {
   3.4931452956835327`*^9, 3.4931453218235693`*^9}, {3.4931453713536386`*^9, 
   3.4931453747436433`*^9}, 3.4931456018039613`*^9, {3.493146996085913*^9, 
   3.4931470125759363`*^9}, {3.493581126911767*^9, 3.493581143581791*^9}, {
   3.4940337767420216`*^9, 3.494033781042267*^9}, {3.5536195024939137`*^9, 
   3.553619509943924*^9}, {3.5860540517644005`*^9, 3.5860540517644005`*^9}, {
   3.5861119320928125`*^9, 3.5861119320928125`*^9}, {3.716402110429532*^9, 
   3.716402110429532*^9}, {3.7190300465178537`*^9, 3.7190300465178537`*^9}, {
   3.719110077180096*^9, 3.719110077180096*^9}, {3.7191114587851195`*^9, 
   3.7191114587851195`*^9}, {3.7197742164532824`*^9, 
   3.7197742164532824`*^9}, {3.72125703019808*^9, 3.7212570309331217`*^9}, {
   3.721264673256837*^9, 3.721264673256837*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "3"], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox["c", "e"]}]}], " ", 
    RowBox[{"\[Integral]", 
     RowBox[{
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "3"], 
       RowBox[{"1", "+", 
        RowBox[{"c", " ", "x"}]}]], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"c", " ", "d"}], "-", "e"}], "e"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "3"], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], ")"}]}]], 
     RowBox[{"\[DifferentialD]", 
      RowBox[{
      "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", 
              RowBox[{"ArcTanh", "[", 
               RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "3"], " ", 
          RowBox[{"Log", "[", 
           FractionBox["2", 
            RowBox[{"1", "+", 
             RowBox[{"c", " ", "x"}]}]], "]"}]}], "e"]}]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"3", " ", "b", " ", "c"}], "e"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "2"], " ", 
       RowBox[{"Log", "[", 
        FractionBox["2", 
         RowBox[{"1", "+", 
          RowBox[{"c", " ", "x"}]}]], "]"}]}], 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["c", "2"], " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", "\[IndentingNewLine]", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "3"], " ", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"2", " ", "c", " ", 
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}], ")"}]}]], "]"}]}], "e"], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"3", " ", "b", " ", "c"}], "e"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "2"], " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{"2", " ", "c", " ", 
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], ")"}]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"c", " ", "x"}]}], ")"}]}]], "]"}]}], 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["c", "2"], " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", 
      RowBox[{
      "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", 
              RowBox[{"ArcTanh", "[", 
               RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "3"], " ", 
          RowBox[{"Log", "[", 
           FractionBox["2", 
            RowBox[{"1", "+", 
             RowBox[{"c", " ", "x"}]}]], "]"}]}], "e"]}]}]}]}]}]}], "+", 
  FractionBox[
   RowBox[{"3", " ", "b", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "2"], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"1", "-", 
       FractionBox["2", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}]]}]}], "]"}]}], 
   RowBox[{"2", " ", "e"}]], "+", "\[IndentingNewLine]", 
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox["b", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"3", ",", 
      RowBox[{"1", "-", 
       FractionBox["2", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}]]}]}], "]"}]}], 
   RowBox[{"2", " ", "e"}]], "+", 
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox["b", "3"], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"4", ",", 
      RowBox[{"1", "-", 
       FractionBox["2", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}]]}]}], "]"}]}], 
   RowBox[{"4", " ", "e"}]], "+", "\[IndentingNewLine]", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "3"], " ", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"2", " ", "c", " ", 
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}], ")"}]}]], "]"}]}], "e"], "-", 
  FractionBox[
   RowBox[{"3", " ", "b", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "2"], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"c", " ", "x"}]}], ")"}]}]]}]}], "]"}]}], 
   RowBox[{"2", " ", "e"}]], "-", "\[IndentingNewLine]", 
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox["b", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"3", ",", 
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"c", " ", "x"}]}], ")"}]}]]}]}], "]"}]}], 
   RowBox[{"2", " ", "e"}]], "-", 
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox["b", "3"], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"4", ",", 
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"c", " ", "d"}], "+", "e"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"c", " ", "x"}]}], ")"}]}]]}]}], "]"}]}], 
   RowBox[{"4", " ", "e"}]]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, {
   3.5860254201673713`*^9, 3.586025420177371*^9}, {3.586025740007834*^9, 
   3.586025749592848*^9}, {3.5861106634910364`*^9, 3.5861106635110364`*^9}, 
   3.5861109695214653`*^9, {3.716399960384557*^9, 3.7164000301995497`*^9}, {
   3.719022217090036*^9, 3.719022309698333*^9}, {3.7190224174124937`*^9, 
   3.7190224187365694`*^9}, {3.7191102084966073`*^9, 3.719110241092471*^9}, {
   3.7191103566240797`*^9, 3.7191103590142164`*^9}, 3.7197714314679904`*^9, 
   3.719771962538366*^9, {3.721256173993108*^9, 3.7212562474603095`*^9}, 
   3.721256280179181*^9, {3.7212565481525087`*^9, 3.72125664276892*^9}, {
   3.721256737410333*^9, 3.7212567383163853`*^9}, {3.7212567727213526`*^9, 
   3.7212567746164613`*^9}, {3.721257065478098*^9, 3.7212570959278393`*^9}, {
   3.7212572915360274`*^9, 3.721257299660492*^9}, {3.72125733512152*^9, 
   3.7212573488553057`*^9}, {3.721257400312249*^9, 3.7212574197473607`*^9}, {
   3.7212578891482086`*^9, 3.7212579090773487`*^9}, {3.7212579432153015`*^9, 
   3.721257977251248*^9}, {3.721258532665016*^9, 3.7212585899312916`*^9}, {
   3.7212586587852297`*^9, 3.7212586604993277`*^9}, 3.721258728770232*^9, {
   3.7212587874185867`*^9, 3.721258809413845*^9}, 3.721258907287443*^9, {
   3.721264779223898*^9, 3.721264782465083*^9}, {3.721266388656952*^9, 
   3.7212664224888873`*^9}, {3.7212664546157246`*^9, 
   3.7212664873655977`*^9}, {3.7212665739135485`*^9, 3.721266596240825*^9}, 
   3.721266631152822*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "^", "3"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "3"}]}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"2", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"c", "*", "x"}]}], ")"}]}], "]"}], "/", "e"}]}], " ", "+", 
    " ", "\[IndentingNewLine]", "  ", 
    RowBox[{"3", "*", "b", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "2"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"c", "*", "x"}]}], ")"}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "e"}], ")"}]}]}], " ", "+", " ", "\n", "  ", 
    RowBox[{"3", "*", 
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"3", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"c", "*", "x"}]}], ")"}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "e"}], ")"}]}]}], " ", "+", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"3", "*", 
     RowBox[{"b", "^", "3"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"4", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"c", "*", "x"}]}], ")"}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"4", "*", "e"}], ")"}]}]}], " ", "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "3"}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"2", "*", "c", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}], "]"}], "/", 
      "e"}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"3", "*", "b", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "2"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "e"}], ")"}]}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"3", "*", 
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"3", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "e"}], ")"}]}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"3", "*", 
     RowBox[{"b", "^", "3"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"4", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"4", "*", "e"}], ")"}]}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"c", "^", "2"}], "*", 
        RowBox[{"d", "^", "2"}]}], "-", 
       RowBox[{"e", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4927475229037466`*^9, 3.4927477533449273`*^9}, {
   3.4927478131093454`*^9, 3.492747834183551*^9}, {3.4927478811922398`*^9, 
   3.4927479273238783`*^9}, {3.492747994901744*^9, 3.4927480520830145`*^9}, {
   3.492748126383264*^9, 3.492748126897293*^9}, {3.492799196725788*^9, 
   3.4927992401718645`*^9}, {3.4927992767227287`*^9, 
   3.4927993156759973`*^9}, {3.4927994994131203`*^9, 3.492799508102335*^9}, {
   3.492799544387999*^9, 3.4927995657444363`*^9}, {3.4927996261789427`*^9, 
   3.492799660327403*^9}, {3.4927997257383175`*^9, 3.4927997433351483`*^9}, {
   3.4927998179656796`*^9, 3.4927998331289062`*^9}, {3.4928379334601374`*^9, 
   3.492837939216548*^9}, {3.4928380301959076`*^9, 3.4928380706935787`*^9}, {
   3.4928381256836753`*^9, 3.492838126026876*^9}, {3.492838194448596*^9, 
   3.492838214806632*^9}, {3.4928386496573954`*^9, 3.4928386538382025`*^9}, {
   3.4928387393419533`*^9, 3.4928388738453894`*^9}, {3.4928392099891806`*^9, 
   3.4928392282724123`*^9}, {3.4928392656204743`*^9, 3.492839265890475*^9}, {
   3.4928393374405746`*^9, 3.492839337970576*^9}, 3.4928413413933806`*^9, {
   3.4930740306333447`*^9, 3.4930740321133466`*^9}, {3.493144462352366*^9, 
   3.493144468172374*^9}, {3.493144540822476*^9, 3.4931445433324795`*^9}, {
   3.4931445892825437`*^9, 3.4931445898425446`*^9}, {3.493145449723748*^9, 
   3.493145475833785*^9}, {3.49358106455168*^9, 3.493581066611683*^9}, {
   3.493748575803213*^9, 3.4937486011688576`*^9}, {3.4940008713785477`*^9, 
   3.4940008713835483`*^9}, {3.49402332003436*^9, 3.4940233203603783`*^9}, {
   3.4940349261607647`*^9, 3.494034948444039*^9}, {3.494037644559248*^9, 
   3.494037647619423*^9}, 3.548732411214406*^9, 3.548732673066383*^9, {
   3.5536194818838844`*^9, 3.553619489273895*^9}, {3.5860255405475454`*^9, 
   3.5860255405575457`*^9}, {3.5860256114501486`*^9, 3.5860256114501486`*^9}, 
   3.586025658395217*^9, 3.5860264994089313`*^9, 3.5860538480748425`*^9, 
   3.5860539041101413`*^9, {3.5860539762914677`*^9, 3.586053998443507*^9}, {
   3.5860540741940403`*^9, 3.5860540777352467`*^9}, {3.586110663891037*^9, 
   3.5861106639110374`*^9}, 3.586110993071498*^9, 3.5861119420428267`*^9, 
   3.7061413610379276`*^9, 3.7152316664656773`*^9, {3.715232060397209*^9, 
   3.7152320606312227`*^9}, {3.7164021230032516`*^9, 3.716402130165661*^9}, 
   3.716402163736581*^9, {3.7185734111476774`*^9, 3.7185734227423406`*^9}, {
   3.71858038554459*^9, 3.718580393845065*^9}, {3.7190300586855497`*^9, 
   3.719030060601659*^9}, {3.719110290560301*^9, 3.719110315520728*^9}, {
   3.7191103863507795`*^9, 3.7191104193026648`*^9}, 3.7191114639644156`*^9, 
   3.719771432112027*^9, 3.719771972949961*^9, 3.7197742735765495`*^9, {
   3.720285923405246*^9, 3.720285928678055*^9}, {3.721257501157017*^9, 
   3.721257520153104*^9}, {3.7212581487360563`*^9, 3.7212581770246744`*^9}, 
   3.7212590186648135`*^9, {3.7212591591978517`*^9, 3.7212591648581753`*^9}, 
   3.721264720702551*^9, {3.721264782811103*^9, 3.7212647853192463`*^9}, {
   3.721266650710941*^9, 3.7212667241391406`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "^", "3"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcCoth", "[", 
           RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "3"}]}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"2", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"c", "*", "x"}]}], ")"}]}], "]"}], "/", "e"}]}], " ", "+", 
    " ", "\[IndentingNewLine]", "  ", 
    RowBox[{"3", "*", "b", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "2"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"c", "*", "x"}]}], ")"}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "e"}], ")"}]}]}], " ", "+", " ", "\n", "  ", 
    RowBox[{"3", "*", 
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", 
        RowBox[{"ArcCoth", "[", 
         RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"3", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"c", "*", "x"}]}], ")"}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "e"}], ")"}]}]}], " ", "+", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"3", "*", 
     RowBox[{"b", "^", "3"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"4", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"c", "*", "x"}]}], ")"}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"4", "*", "e"}], ")"}]}]}], " ", "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "3"}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"2", "*", "c", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}], "]"}], "/", 
      "e"}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"3", "*", "b", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "2"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "e"}], ")"}]}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"3", "*", 
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", 
        RowBox[{"ArcCoth", "[", 
         RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"3", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "e"}], ")"}]}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"3", "*", 
     RowBox[{"b", "^", "3"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"4", ",", 
        RowBox[{"1", "-", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"c", "*", "d"}], "+", "e"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"c", "*", "x"}]}], ")"}]}], ")"}]}]}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"4", "*", "e"}], ")"}]}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"c", "^", "2"}], "*", 
        RowBox[{"d", "^", "2"}]}], "-", 
       RowBox[{"e", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4927475229037466`*^9, 3.4927477533449273`*^9}, {
   3.4927478131093454`*^9, 3.492747834183551*^9}, {3.4927478811922398`*^9, 
   3.4927479273238783`*^9}, {3.492747994901744*^9, 3.4927480520830145`*^9}, {
   3.492748126383264*^9, 3.492748126897293*^9}, {3.492799196725788*^9, 
   3.4927992401718645`*^9}, {3.4927992767227287`*^9, 
   3.4927993156759973`*^9}, {3.4927994994131203`*^9, 3.492799508102335*^9}, {
   3.492799544387999*^9, 3.4927995657444363`*^9}, {3.4927996261789427`*^9, 
   3.492799660327403*^9}, {3.4927997257383175`*^9, 3.4927997433351483`*^9}, {
   3.4927998179656796`*^9, 3.4927998331289062`*^9}, {3.4928379334601374`*^9, 
   3.492837939216548*^9}, {3.4928380301959076`*^9, 3.4928380706935787`*^9}, {
   3.4928381256836753`*^9, 3.492838126026876*^9}, {3.492838194448596*^9, 
   3.492838214806632*^9}, {3.4928386496573954`*^9, 3.4928386538382025`*^9}, {
   3.4928387393419533`*^9, 3.4928388738453894`*^9}, {3.4928392099891806`*^9, 
   3.4928392282724123`*^9}, {3.4928392656204743`*^9, 3.492839265890475*^9}, {
   3.4928393374405746`*^9, 3.492839337970576*^9}, 3.4928413413933806`*^9, {
   3.4930740306333447`*^9, 3.4930740321133466`*^9}, {3.493144462352366*^9, 
   3.493144468172374*^9}, {3.493144540822476*^9, 3.4931445433324795`*^9}, {
   3.4931445892825437`*^9, 3.4931445898425446`*^9}, {3.493145449723748*^9, 
   3.493145475833785*^9}, {3.49358106455168*^9, 3.493581066611683*^9}, {
   3.493748575803213*^9, 3.4937486011688576`*^9}, {3.4940008713785477`*^9, 
   3.4940008713835483`*^9}, {3.49402332003436*^9, 3.4940233203603783`*^9}, {
   3.4940349261607647`*^9, 3.494034948444039*^9}, {3.494037644559248*^9, 
   3.494037647619423*^9}, 3.548732411214406*^9, 3.548732673066383*^9, {
   3.5536194818838844`*^9, 3.553619489273895*^9}, {3.5860255405475454`*^9, 
   3.5860255405575457`*^9}, {3.5860256114501486`*^9, 3.5860256114501486`*^9}, 
   3.586025658395217*^9, 3.5860264994089313`*^9, 3.5860538480748425`*^9, 
   3.5860539041101413`*^9, {3.5860539762914677`*^9, 3.586053998443507*^9}, {
   3.5860540741940403`*^9, 3.5860540777352467`*^9}, {3.586110663891037*^9, 
   3.5861106639110374`*^9}, 3.586110993071498*^9, 3.5861119420428267`*^9, 
   3.7061413610379276`*^9, 3.7152316664656773`*^9, {3.715232060397209*^9, 
   3.7152320606312227`*^9}, {3.7164021230032516`*^9, 3.716402130165661*^9}, 
   3.716402163736581*^9, {3.7185734111476774`*^9, 3.7185734227423406`*^9}, {
   3.71858038554459*^9, 3.718580393845065*^9}, {3.7190300586855497`*^9, 
   3.719030060601659*^9}, {3.719110290560301*^9, 3.719110315520728*^9}, {
   3.7191103863507795`*^9, 3.7191104193026648`*^9}, 3.7191114639644156`*^9, 
   3.719771432112027*^9, 3.719771972949961*^9, 3.7197742735765495`*^9, {
   3.720285923405246*^9, 3.720285928678055*^9}, {3.721257501157017*^9, 
   3.721257520153104*^9}, {3.7212581487360563`*^9, 3.7212581770246744`*^9}, 
   3.7212590186648135`*^9, {3.7212591591978517`*^9, 3.7212591648581753`*^9}, 
   3.721264720702551*^9, {3.721264782811103*^9, 3.7212647853192463`*^9}, {
   3.721266650710941*^9, 3.721266760912244*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "q"], 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"q", "\[NotEqual]", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.5536180162118325`*^9, {3.5536181773620586`*^9, 
   3.553618184892069*^9}, {3.5536184787824802`*^9, 3.5536184787824802`*^9}, {
   3.5536185303625526`*^9, 3.5536185303625526`*^9}, {3.553618804282936*^9, 
   3.5536188053529377`*^9}, 3.553966022715358*^9, {3.5557149676464005`*^9, 
   3.5557149676464005`*^9}, {3.555715015066467*^9, 3.555715015066467*^9}, 
   3.555715325186901*^9, {3.555721683865837*^9, 3.5557217174158845`*^9}, {
   3.5557220560763583`*^9, 3.555722056246359*^9}, {3.555722398856838*^9, 
   3.5557223990268383`*^9}, {3.555729434124188*^9, 3.5557294411241975`*^9}, {
   3.555729504284286*^9, 3.5557295051542873`*^9}, 3.555775173368371*^9, 
   3.556298635391014*^9, {3.5851540523959627`*^9, 3.5851540523959627`*^9}, {
   3.585154097292841*^9, 3.585154097292841*^9}, 3.5851562220162735`*^9, 
   3.5860254202573714`*^9, {3.5863144702720647`*^9, 3.586314485852087*^9}, 
   3.5863181380649757`*^9, {3.586456886444556*^9, 3.5864568877245584`*^9}, 
   3.6201611893242493`*^9, 3.719029611128951*^9, {3.719029674178557*^9, 
   3.719029675758647*^9}, {3.71903047602942*^9, 3.7190304772784915`*^9}, 
   3.7191124864108963`*^9, 3.7365676475562005`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{{3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4940052861338797`*^9, 3.4940052928402634`*^9}, {3.554052882688694*^9, 
   3.554052897948715*^9}, {3.5540534414694767`*^9, 3.5540534433294787`*^9}, 
   3.555721426425477*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"q", "\[NotEqual]", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.493098879405472*^9, 3.493098884745479*^9}, {3.493099207935931*^9, 
   3.4930992149659414`*^9}, 3.4930996737265835`*^9, 3.493099827186798*^9, {
   3.4932434943005557`*^9, 3.493243522320595*^9}, {3.494005203823172*^9, 
   3.494005223116276*^9}, {3.494005912167687*^9, 3.494005912167687*^9}, {
   3.494005996704522*^9, 3.494006005111003*^9}, {3.4940117189798174`*^9, 
   3.494011721274949*^9}, {3.494011926169668*^9, 3.4940119289428267`*^9}, {
   3.4940120348468843`*^9, 3.494012036980006*^9}, {3.494013442081373*^9, 
   3.494013450779871*^9}, {3.5536184826024857`*^9, 3.5536184826024857`*^9}, {
   3.553618527502548*^9, 3.553618527502548*^9}, {3.5557150063264546`*^9, 
   3.5557150070964556`*^9}, {3.5557214656055317`*^9, 
   3.5557214656055317`*^9}, {3.5557217241458936`*^9, 
   3.5557217241458936`*^9}, {3.555729445104203*^9, 3.5557294457742043`*^9}, {
   3.5851541025188503`*^9, 3.5851541025188503`*^9}, {3.5864568889145603`*^9, 
   3.5864568889145603`*^9}, {3.7163347648244324`*^9, 
   3.7163347666025343`*^9}, {3.7190296802069016`*^9, 
   3.7190296802069016`*^9}, {3.7190304786785717`*^9, 3.7190304786785717`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "q"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}], 
         RowBox[{"q", "+", "1"}]], 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}]}], 
       RowBox[{"e", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "c"}], 
    RowBox[{"e", 
     RowBox[{"(", 
      RowBox[{"q", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], ")"}], 
       RowBox[{"q", "+", "1"}]], 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["c", "2"], 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellChangeTimes->{{3.493098332554706*^9, 3.4930984922049294`*^9}, {
   3.4930985835950575`*^9, 3.4930986777351894`*^9}, {3.4930988533254347`*^9, 
   3.4930988578754416`*^9}, {3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4930993574561405`*^9, 3.493099400886202*^9}, {3.493099526816378*^9, 
   3.49309953534639*^9}, 3.4931705981281786`*^9, {3.493170768098417*^9, 
   3.4931708122284784`*^9}, {3.4940050446890697`*^9, 
   3.4940051357132764`*^9}, {3.494010254898077*^9, 3.4940102990006*^9}, {
   3.494010355515832*^9, 3.4940103650133753`*^9}, 3.4940116760473623`*^9, {
   3.4940156538678803`*^9, 3.494015661870338*^9}, {3.494015862381807*^9, 
   3.4940158673580914`*^9}, {3.5539680782425966`*^9, 3.553968085325009*^9}, {
   3.554437984948521*^9, 3.554437997758539*^9}, {3.5544380373785944`*^9, 
   3.5544380523386154`*^9}, {3.554438084958661*^9, 3.554438089888668*^9}, 
   3.5544381973088183`*^9, {3.5557186640891094`*^9, 3.5557186974791565`*^9}, 
   3.555721433285486*^9, 3.5557751270983067`*^9, {3.555775173878372*^9, 
   3.5557751751283736`*^9}, {3.5860254202573714`*^9, 3.586025420267371*^9}, {
   3.5860264816789055`*^9, 3.5860265104739475`*^9}, 3.5861116554024253`*^9, {
   3.586314489062091*^9, 3.58631455248218*^9}, 3.586314653282321*^9, {
   3.5863181380749755`*^9, 3.5863181380849752`*^9}, 3.5863186298156643`*^9, {
   3.5864568898745613`*^9, 3.5864568923145647`*^9}, {3.719029681036949*^9, 
   3.71902968350109*^9}, {3.719030479511619*^9, 3.7190304818557534`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.4940053078671227`*^9, 3.494005310026246*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "q_."}], "*", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"q", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", 
     RowBox[{"c", "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"q", "+", "1"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"c", "^", "2"}], "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "q"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"q", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.553968162183943*^9, 
   3.5539681851627836`*^9}, {3.554438058758624*^9, 3.554438059968626*^9}, 
   3.555714908126317*^9, 3.555715055236523*^9, 3.555718733889207*^9, 
   3.555721527285618*^9, {3.555721591635708*^9, 3.555721603375725*^9}, {
   3.555721660045804*^9, 3.555721679935832*^9}, {3.5557220722263813`*^9, 
   3.5557220760563865`*^9}, 3.5557225762470865`*^9, {3.5557294509142113`*^9, 
   3.555729470674239*^9}, 3.555775136288319*^9, {3.555775178048378*^9, 
   3.5557751804483814`*^9}, {3.585154065811986*^9, 3.585154078728809*^9}, {
   3.5860255405175457`*^9, 3.586025540527546*^9}, 3.5860256583752165`*^9, 
   3.586026499378931*^9, {3.5860265312364774`*^9, 3.5860265451714973`*^9}, {
   3.5863145782922163`*^9, 3.5863146942723784`*^9}, {3.5863181380949755`*^9, 
   3.5863181380949755`*^9}, 3.586318632095667*^9, {3.5864568970445714`*^9, 
   3.5864569029145794`*^9}, 3.706141511978139*^9, {3.715232358069235*^9, 
   3.715232358632267*^9}, {3.719029684800164*^9, 3.7190296883893695`*^9}, {
   3.7190304859679885`*^9, 3.7190304928453817`*^9}, 3.7201602821681128`*^9, 
   3.7202005076815414`*^9, 3.720226431396693*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "q_."}], "*", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"ArcCoth", "[", 
         RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"q", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", 
     RowBox[{"c", "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"q", "+", "1"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"c", "^", "2"}], "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "q"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"q", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.4940145350658884`*^9, 
   3.494014538013057*^9}, {3.553968159360338*^9, 3.5539681955368013`*^9}, {
   3.5544380632086306`*^9, 3.5544380636686316`*^9}, 3.555714908906318*^9, 
   3.5557150576865263`*^9, 3.55571877873927*^9, {3.5557215449456425`*^9, 
   3.5557215512956514`*^9}, 3.555721612525738*^9, {3.555721663005808*^9, 
   3.555721672915822*^9}, 3.555722081826394*^9, 3.5557225785770903`*^9, {
   3.555729466974234*^9, 3.5557294736242433`*^9}, 3.5557751391583233`*^9, {
   3.5557751836583853`*^9, 3.555775186038389*^9}, 3.5557752200684366`*^9, {
   3.5851540687759914`*^9, 3.585154086279222*^9}, 3.5860256860852566`*^9, {
   3.586025865750516*^9, 3.586025865750516*^9}, 3.5860264993989315`*^9, {
   3.586026539296489*^9, 3.586026551171506*^9}, {3.5863146778223553`*^9, 
   3.586314736552438*^9}, {3.5863181478449893`*^9, 3.586318147854989*^9}, {
   3.5863186336856694`*^9, 3.586318635825672*^9}, {3.5864569049645824`*^9, 
   3.5864569158145976`*^9}, 3.706141511988139*^9, 3.7152323708249645`*^9, {
   3.7190296891524134`*^9, 3.719029691789564*^9}, {3.719030493712432*^9, 
   3.719030500141799*^9}, 3.7201603070485353`*^9, 3.7202005220733647`*^9, 
   3.720226435507928*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "q"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"p", "-", "1"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{"q", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
       " ", 
       RowBox[{"q", "\[NotEqual]", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.5536180162118325`*^9, {3.5536181773620586`*^9, 
   3.553618184892069*^9}, {3.5536184787824802`*^9, 3.5536184787824802`*^9}, {
   3.5536185303625526`*^9, 3.5536185303625526`*^9}, {3.553618804282936*^9, 
   3.5536188053529377`*^9}, 3.553966022715358*^9, {3.5557149676464005`*^9, 
   3.5557149676464005`*^9}, {3.555715015066467*^9, 3.555715015066467*^9}, 
   3.555715325186901*^9, {3.555721683865837*^9, 3.5557217174158845`*^9}, {
   3.5557220560763583`*^9, 3.555722056246359*^9}, {3.555722398856838*^9, 
   3.5557223990268383`*^9}, {3.555729434124188*^9, 3.5557294411241975`*^9}, {
   3.555729504284286*^9, 3.5557295051542873`*^9}, 3.555775173368371*^9, 
   3.556298635391014*^9, {3.5851540523959627`*^9, 3.5851540523959627`*^9}, {
   3.585154097292841*^9, 3.585154097292841*^9}, 3.5851562220162735`*^9, 
   3.5860254202573714`*^9, {3.5863144702720647`*^9, 3.586314485852087*^9}, 
   3.5863181380649757`*^9, {3.586456886444556*^9, 3.5864568877245584`*^9}, 
   3.6201611893242493`*^9, 3.719029611128951*^9, {3.719029674178557*^9, 
   3.719029675758647*^9}, {3.71903047602942*^9, 3.7190304772784915`*^9}, 
   3.7191124864108963`*^9, {3.719942690304471*^9, 3.719942730006742*^9}, {
   3.7199432165295696`*^9, 3.7199432168775897`*^9}, {3.7199432705066566`*^9, 
   3.719943270972684*^9}, {3.719943915309538*^9, 3.7199439312584496`*^9}, {
   3.7199439666714754`*^9, 3.7199439668474855`*^9}, {3.720296705524215*^9, 
   3.7202967066892815`*^9}, {3.72030051246796*^9, 3.7203005153611255`*^9}, {
   3.720302163459391*^9, 3.7203021692497225`*^9}, 3.7365676487342677`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{{3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4940052861338797`*^9, 3.4940052928402634`*^9}, {3.554052882688694*^9, 
   3.554052897948715*^9}, {3.5540534414694767`*^9, 3.5540534433294787`*^9}, 
   3.555721426425477*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"p", "-", "1"}], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"q", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{"q", "\[NotEqual]", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.493098879405472*^9, 3.493098884745479*^9}, {3.493099207935931*^9, 
   3.4930992149659414`*^9}, 3.4930996737265835`*^9, 3.493099827186798*^9, {
   3.4932434943005557`*^9, 3.493243522320595*^9}, {3.494005203823172*^9, 
   3.494005223116276*^9}, {3.494005912167687*^9, 3.494005912167687*^9}, {
   3.494005996704522*^9, 3.494006005111003*^9}, {3.4940117189798174`*^9, 
   3.494011721274949*^9}, {3.494011926169668*^9, 3.4940119289428267`*^9}, {
   3.4940120348468843`*^9, 3.494012036980006*^9}, {3.494013442081373*^9, 
   3.494013450779871*^9}, {3.5536184826024857`*^9, 3.5536184826024857`*^9}, {
   3.553618527502548*^9, 3.553618527502548*^9}, {3.5557150063264546`*^9, 
   3.5557150070964556`*^9}, {3.5557214656055317`*^9, 
   3.5557214656055317`*^9}, {3.5557217241458936`*^9, 
   3.5557217241458936`*^9}, {3.555729445104203*^9, 3.5557294457742043`*^9}, {
   3.5851541025188503`*^9, 3.5851541025188503`*^9}, {3.5864568889145603`*^9, 
   3.5864568889145603`*^9}, {3.7163347648244324`*^9, 
   3.7163347666025343`*^9}, {3.7190296802069016`*^9, 
   3.7190296802069016`*^9}, {3.7190304786785717`*^9, 
   3.7190304786785717`*^9}, {3.7199427505629177`*^9, 
   3.7199427505629177`*^9}, {3.7199432203537884`*^9, 3.719943220681807*^9}, {
   3.7199439370247793`*^9, 3.7199439370247793`*^9}, {3.7202967113155465`*^9, 
   3.7202967122926025`*^9}, {3.7203005209124427`*^9, 
   3.7203005209124427`*^9}, {3.720302172199891*^9, 3.720302173205949*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "q"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}], 
         RowBox[{"q", "+", "1"}]], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"ArcTanh", "[", 
             RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"]}], 
       RowBox[{"e", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "c", " ", "p"}], 
    RowBox[{"e", 
     RowBox[{"(", 
      RowBox[{"q", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], 
      RowBox[{"p", "-", "1"}]], " ", 
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}], 
         RowBox[{"q", "+", "1"}]], 
        RowBox[{"1", "-", 
         RowBox[{
          SuperscriptBox["c", "2"], 
          SuperscriptBox["x", "2"]}]}]], ",", "x"}], "]"}], " ", 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellChangeTimes->{{3.493098332554706*^9, 3.4930984922049294`*^9}, {
   3.4930985835950575`*^9, 3.4930986777351894`*^9}, {3.4930988533254347`*^9, 
   3.4930988578754416`*^9}, {3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4930993574561405`*^9, 3.493099400886202*^9}, {3.493099526816378*^9, 
   3.49309953534639*^9}, 3.4931705981281786`*^9, {3.493170768098417*^9, 
   3.4931708122284784`*^9}, {3.4940050446890697`*^9, 
   3.4940051357132764`*^9}, {3.494010254898077*^9, 3.4940102990006*^9}, {
   3.494010355515832*^9, 3.4940103650133753`*^9}, 3.4940116760473623`*^9, {
   3.4940156538678803`*^9, 3.494015661870338*^9}, {3.494015862381807*^9, 
   3.4940158673580914`*^9}, {3.5539680782425966`*^9, 3.553968085325009*^9}, {
   3.554437984948521*^9, 3.554437997758539*^9}, {3.5544380373785944`*^9, 
   3.5544380523386154`*^9}, {3.554438084958661*^9, 3.554438089888668*^9}, 
   3.5544381973088183`*^9, {3.5557186640891094`*^9, 3.5557186974791565`*^9}, 
   3.555721433285486*^9, 3.5557751270983067`*^9, {3.555775173878372*^9, 
   3.5557751751283736`*^9}, {3.5860254202573714`*^9, 3.586025420267371*^9}, {
   3.5860264816789055`*^9, 3.5860265104739475`*^9}, 3.5861116554024253`*^9, {
   3.586314489062091*^9, 3.58631455248218*^9}, 3.586314653282321*^9, {
   3.5863181380749755`*^9, 3.5863181380849752`*^9}, 3.5863186298156643`*^9, {
   3.5864568898745613`*^9, 3.5864568923145647`*^9}, {3.719029681036949*^9, 
   3.71902968350109*^9}, {3.719030479511619*^9, 3.7190304818557534`*^9}, {
   3.71994277281219*^9, 3.719942776000373*^9}, {3.7199428125444627`*^9, 
   3.719942827968345*^9}, {3.719942913971264*^9, 3.719942937015582*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.4940053078671227`*^9, 3.494005310026246*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "q_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"q", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "p"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", "c", "*", 
     RowBox[{"p", "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"ArcTanh", "[", 
              RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"p", "-", "1"}], ")"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"q", "+", "1"}], ")"}]}], "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{
             RowBox[{"c", "^", "2"}], "*", 
             RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}], ",", 
       "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "q", "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"q", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.553968162183943*^9, 
   3.5539681851627836`*^9}, {3.554438058758624*^9, 3.554438059968626*^9}, 
   3.555714908126317*^9, 3.555715055236523*^9, 3.555718733889207*^9, 
   3.555721527285618*^9, {3.555721591635708*^9, 3.555721603375725*^9}, {
   3.555721660045804*^9, 3.555721679935832*^9}, {3.5557220722263813`*^9, 
   3.5557220760563865`*^9}, 3.5557225762470865`*^9, {3.5557294509142113`*^9, 
   3.555729470674239*^9}, 3.555775136288319*^9, {3.555775178048378*^9, 
   3.5557751804483814`*^9}, {3.585154065811986*^9, 3.585154078728809*^9}, {
   3.5860255405175457`*^9, 3.586025540527546*^9}, 3.5860256583752165`*^9, 
   3.586026499378931*^9, {3.5860265312364774`*^9, 3.5860265451714973`*^9}, {
   3.5863145782922163`*^9, 3.5863146942723784`*^9}, {3.5863181380949755`*^9, 
   3.5863181380949755`*^9}, 3.586318632095667*^9, {3.5864568970445714`*^9, 
   3.5864569029145794`*^9}, 3.706141511978139*^9, {3.715232358069235*^9, 
   3.715232358632267*^9}, {3.719029684800164*^9, 3.7190296883893695`*^9}, {
   3.7190304859679885`*^9, 3.7190304928453817`*^9}, {3.719942955427635*^9, 
   3.7199429563896904`*^9}, {3.719942995241913*^9, 3.719943029357864*^9}, 
   3.71994307124526*^9, 3.7199432098291864`*^9, {3.719943939775937*^9, 
   3.719943944498207*^9}, 3.720160282199114*^9, 3.7202005077035427`*^9, 
   3.720226456852149*^9, {3.7202967291185646`*^9, 3.720296730000615*^9}, {
   3.720299281723565*^9, 3.720299310673221*^9}, {3.720300494669942*^9, 
   3.720300508008705*^9}, 3.7203018835713825`*^9, {3.7203023085456896`*^9, 
   3.720302308748701*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "q_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"q", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcCoth", "[", 
           RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "p"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", "c", "*", 
     RowBox[{"p", "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"ArcCoth", "[", 
              RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"p", "-", "1"}], ")"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"q", "+", "1"}], ")"}]}], "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{
             RowBox[{"c", "^", "2"}], "*", 
             RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}], ",", 
       "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "q", "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"q", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.553968162183943*^9, 
   3.5539681851627836`*^9}, {3.554438058758624*^9, 3.554438059968626*^9}, 
   3.555714908126317*^9, 3.555715055236523*^9, 3.555718733889207*^9, 
   3.555721527285618*^9, {3.555721591635708*^9, 3.555721603375725*^9}, {
   3.555721660045804*^9, 3.555721679935832*^9}, {3.5557220722263813`*^9, 
   3.5557220760563865`*^9}, 3.5557225762470865`*^9, {3.5557294509142113`*^9, 
   3.555729470674239*^9}, 3.555775136288319*^9, {3.555775178048378*^9, 
   3.5557751804483814`*^9}, {3.585154065811986*^9, 3.585154078728809*^9}, {
   3.5860255405175457`*^9, 3.586025540527546*^9}, 3.5860256583752165`*^9, 
   3.586026499378931*^9, {3.5860265312364774`*^9, 3.5860265451714973`*^9}, {
   3.5863145782922163`*^9, 3.5863146942723784`*^9}, {3.5863181380949755`*^9, 
   3.5863181380949755`*^9}, 3.586318632095667*^9, {3.5864568970445714`*^9, 
   3.5864569029145794`*^9}, 3.706141511978139*^9, {3.715232358069235*^9, 
   3.715232358632267*^9}, {3.719029684800164*^9, 3.7190296883893695`*^9}, {
   3.7190304859679885`*^9, 3.7190304928453817`*^9}, {3.719942955427635*^9, 
   3.7199429563896904`*^9}, {3.719942995241913*^9, 3.719943029357864*^9}, {
   3.71994307124526*^9, 3.7199430948636107`*^9}, 3.7199432120183115`*^9, 
   3.7199439512485933`*^9, 3.720160307076537*^9, 3.7202005220953665`*^9, 
   3.720226458865264*^9, {3.7202967334838142`*^9, 3.72029673444687*^9}, {
   3.720299292907205*^9, 3.720299313943408*^9}, 3.720301886163531*^9, {
   3.720302311055833*^9, 3.720302311266845*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"p", "\[Element]", 
      SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, {3.551326301250945*^9, 
   3.551326301841979*^9}, {3.552150760656293*^9, 3.552150761436294*^9}, 
   3.5521509768882723`*^9, {3.5521510341403728`*^9, 3.5521510486171985`*^9}, {
   3.5521511118909097`*^9, 3.5521511159313164`*^9}, 3.55215165895267*^9, 
   3.552151705315952*^9, 3.553532182175474*^9, {3.553559669357978*^9, 
   3.553559705888029*^9}, {3.5535602318087654`*^9, 3.5535602417087793`*^9}, 
   3.553617594461242*^9, 3.553617658031331*^9, {3.553617950531741*^9, 
   3.5536179652017612`*^9}, 3.553966022285333*^9, 3.555724618644946*^9, 
   3.555812609537574*^9, {3.5559627392919617`*^9, 3.555962743401967*^9}, 
   3.556298517310848*^9, 3.5860254201573715`*^9, 3.5861106634710364`*^9, 
   3.6201611823678513`*^9, {3.7163996660727234`*^9, 3.716399676102297*^9}, {
   3.71641618663396*^9, 3.716416202802884*^9}, 3.73663096299149*^9, {
   3.7458652871036386`*^9, 3.7458652902518187`*^9}, {3.745890557917039*^9, 
   3.7458905755320463`*^9}, {3.745890620548621*^9, 3.7458906207726336`*^9}, {
   3.745890878307364*^9, 3.745890880412484*^9}, 3.7458915178559437`*^9, 
   3.745892452021375*^9, {3.745895170197846*^9, 3.7458951703878565`*^9}, {
   3.7459028433577256`*^9, 3.74590284360474*^9}, {3.7459044066051383`*^9, 
   3.7459044068131504`*^9}, 3.745905249911373*^9, 3.745905285918432*^9, {
   3.7459061653167305`*^9, 3.7459061655327435`*^9}, 3.745907264277588*^9, {
   3.746071233342574*^9, 3.7460712336055894`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, {3.551326301250945*^9, 
   3.551326301841979*^9}, {3.552150760656293*^9, 3.552150761436294*^9}, 
   3.5521509768882723`*^9, {3.5521510341403728`*^9, 3.5521510486171985`*^9}, {
   3.5521511118909097`*^9, 3.5521511159313164`*^9}, 3.55215165895267*^9, 
   3.552151705315952*^9, 3.553532182175474*^9, {3.553559669357978*^9, 
   3.553559705888029*^9}, {3.5535602318087654`*^9, 3.5535602417087793`*^9}, 
   3.553617594461242*^9, 3.553617658031331*^9, {3.553617950531741*^9, 
   3.5536179652017612`*^9}, 3.553966022285333*^9, 3.555724618644946*^9, 
   3.555812609537574*^9, {3.5559627392919617`*^9, 3.555962743401967*^9}, 
   3.556298517310848*^9, 3.5860254201573715`*^9, 3.5861106634710364`*^9, 
   3.6201611823678513`*^9, {3.7163996660727234`*^9, 3.716399676102297*^9}, {
   3.71641618663396*^9, 3.716416202802884*^9}, 3.73663096299149*^9, {
   3.7458652871036386`*^9, 3.7458652902518187`*^9}, {3.745890557917039*^9, 
   3.7458905755320463`*^9}, {3.745890620548621*^9, 3.7458906207726336`*^9}, {
   3.745890878307364*^9, 3.745890880412484*^9}, 3.7458915178559437`*^9, 
   3.745892452021375*^9, {3.745895170197846*^9, 3.7458951703878565`*^9}, 
   3.745895279079074*^9, {3.745906939869033*^9, 3.745906940069044*^9}, {
   3.745907254829047*^9, 3.745907257253186*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, {3.551326301250945*^9, 
   3.551326301841979*^9}, {3.552150760656293*^9, 3.552150761436294*^9}, 
   3.5521509768882723`*^9, {3.5521510341403728`*^9, 3.5521510486171985`*^9}, {
   3.5521511118909097`*^9, 3.5521511159313164`*^9}, 3.55215165895267*^9, 
   3.552151705315952*^9, 3.553532182175474*^9, {3.553559669357978*^9, 
   3.553559705888029*^9}, {3.5535602318087654`*^9, 3.5535602417087793`*^9}, 
   3.553617594461242*^9, 3.553617658031331*^9, {3.553617950531741*^9, 
   3.5536179652017612`*^9}, 3.553966022285333*^9, 3.555724618644946*^9, 
   3.555812609537574*^9, {3.5559627392919617`*^9, 3.555962743401967*^9}, 
   3.556298517310848*^9, 3.5860254201573715`*^9, 3.5861106634710364`*^9, 
   3.6201611823678513`*^9, {3.7163996660727234`*^9, 3.716399676102297*^9}, {
   3.71641618663396*^9, 3.716416202802884*^9}, 3.73663096299149*^9, {
   3.7458652871036386`*^9, 3.7458652902518187`*^9}, {3.745890557917039*^9, 
   3.7458905755320463`*^9}, {3.745890620548621*^9, 3.7458906207726336`*^9}, {
   3.745890878307364*^9, 3.745890880412484*^9}, 3.7458915178559437`*^9, 
   3.745892452021375*^9, {3.745895170197846*^9, 3.7458951703878565`*^9}, 
   3.745895279079074*^9, {3.745906939869033*^9, 3.745906940069044*^9}, {
   3.745907254829047*^9, 3.745907257253186*^9}, {3.7459396369854836`*^9, 
   3.745939644122892*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.5536180162118325`*^9, {3.5536181773620586`*^9, 
   3.553618184892069*^9}, {3.5536184787824802`*^9, 3.5536184787824802`*^9}, {
   3.5536185303625526`*^9, 3.5536185303625526`*^9}, {3.553618804282936*^9, 
   3.5536188053529377`*^9}, 3.553966022715358*^9, {3.5557149676464005`*^9, 
   3.5557149676464005`*^9}, {3.555715015066467*^9, 3.555715015066467*^9}, 
   3.555715325186901*^9, {3.555721683865837*^9, 3.5557217174158845`*^9}, {
   3.5557220560763583`*^9, 3.555722056246359*^9}, {3.555722398856838*^9, 
   3.5557223990268383`*^9}, {3.555729434124188*^9, 3.5557294411241975`*^9}, {
   3.555729504284286*^9, 3.5557295051542873`*^9}, 3.555775173368371*^9, 
   3.556298635391014*^9, {3.5851540523959627`*^9, 3.5851540523959627`*^9}, {
   3.585154097292841*^9, 3.585154097292841*^9}, 3.5851562220162735`*^9, 
   3.5860254202573714`*^9, {3.586315733723834*^9, 3.586315733723834*^9}, 
   3.5863181381849756`*^9, 3.6201611909713435`*^9, {3.7190276491227303`*^9, 
   3.719027652298912*^9}, 3.719027684653763*^9, 3.7190287545879593`*^9, {
   3.7190288385937643`*^9, 3.719028866880382*^9}, 3.719029023615347*^9, 
   3.719029067829876*^9, {3.719074708887245*^9, 3.719074708887245*^9}, {
   3.719074760993225*^9, 3.7190747776661787`*^9}, {3.719075087787917*^9, 
   3.7190750962574015`*^9}, {3.7190751401769133`*^9, 
   3.7190751401769133`*^9}, {3.7190795557774715`*^9, 3.719079556020485*^9}, {
   3.7366224243171062`*^9, 3.7366224245741205`*^9}, {3.7366235449052*^9, 
   3.736623545208217*^9}, 3.7366309981264997`*^9, {3.745866310005145*^9, 
   3.745866310204157*^9}, {3.745890542132136*^9, 3.7458905426121635`*^9}, {
   3.74589065042833*^9, 3.74589065060434*^9}, 3.7458908830366344`*^9, {
   3.745891026711852*^9, 3.745891034140277*^9}, {3.745891264407448*^9, 
   3.7458912955912313`*^9}, 3.7458919258372793`*^9, 3.745892458973773*^9, 
   3.7458952796481066`*^9, 3.7459072588532777`*^9, 3.74593964758609*^9, {
   3.745939707781533*^9, 3.7459397134918594`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{{3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4940052861338797`*^9, 3.4940052928402634`*^9}, {3.554052882688694*^9, 
   3.554052897948715*^9}, {3.5540534414694767`*^9, 3.5540534433294787`*^9}, 
   3.555721426425477*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "\[Equal]", 
   RowBox[{"b", " ", "c", " ", "n", " ", 
    FractionBox[
     SuperscriptBox["x", 
      RowBox[{"n", "-", "1"}]], 
     RowBox[{"1", "-", 
      RowBox[{
       SuperscriptBox["c", "2"], " ", 
       SuperscriptBox["x", 
        RowBox[{"2", " ", "n"}]]}]}]]}]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.7190751503354945`*^9, 3.7190751505865088`*^9}, {
   3.7190751857755213`*^9, 3.719075195155058*^9}, {3.7366309986485295`*^9, 
   3.7366309986495295`*^9}, {3.736631417996515*^9, 3.736631417996515*^9}, {
   3.7458952802881427`*^9, 3.7458952802881427`*^9}, {3.7458953592696605`*^9, 
   3.7458953592696605`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.493098879405472*^9, 3.493098884745479*^9}, {3.493099207935931*^9, 
   3.4930992149659414`*^9}, 3.4930996737265835`*^9, 3.493099827186798*^9, {
   3.4932434943005557`*^9, 3.493243522320595*^9}, {3.494005203823172*^9, 
   3.494005223116276*^9}, {3.494005912167687*^9, 3.494005912167687*^9}, {
   3.494005996704522*^9, 3.494006005111003*^9}, {3.4940117189798174`*^9, 
   3.494011721274949*^9}, {3.494011926169668*^9, 3.4940119289428267`*^9}, {
   3.4940120348468843`*^9, 3.494012036980006*^9}, {3.494013442081373*^9, 
   3.494013450779871*^9}, {3.5536184826024857`*^9, 3.5536184826024857`*^9}, {
   3.553618527502548*^9, 3.553618527502548*^9}, {3.5557150063264546`*^9, 
   3.5557150070964556`*^9}, {3.5557214656055317`*^9, 
   3.5557214656055317`*^9}, {3.5557217241458936`*^9, 
   3.5557217241458936`*^9}, {3.555729445104203*^9, 3.5557294457742043`*^9}, {
   3.5851541025188503`*^9, 3.5851541025188503`*^9}, {3.5863157450938497`*^9, 
   3.5863157450938497`*^9}, {3.7190276609994097`*^9, 
   3.7190276609994097`*^9}, {3.7190288418889527`*^9, 
   3.7190288420679626`*^9}, {3.719074683534795*^9, 3.7190746935193663`*^9}, {
   3.719075143824122*^9, 3.719075143824122*^9}, {3.7459398558360014`*^9, 
   3.7459398558360014`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "e"]}]}]}]}], 
  "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "c", " ", "n"}], "e"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{"n", "-", "1"}]], " ", 
       RowBox[{"Log", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}], 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["c", "2"], " ", 
        SuperscriptBox["x", 
         RowBox[{"2", " ", "n"}]]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellChangeTimes->{{3.493098332554706*^9, 3.4930984922049294`*^9}, {
   3.4930985835950575`*^9, 3.4930986777351894`*^9}, {3.4930988533254347`*^9, 
   3.4930988578754416`*^9}, {3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4930993574561405`*^9, 3.493099400886202*^9}, {3.493099526816378*^9, 
   3.49309953534639*^9}, 3.4931705981281786`*^9, {3.493170768098417*^9, 
   3.4931708122284784`*^9}, {3.4940050446890697`*^9, 
   3.4940051357132764`*^9}, {3.494010254898077*^9, 3.4940102990006*^9}, {
   3.494010355515832*^9, 3.4940103650133753`*^9}, 3.4940116760473623`*^9, {
   3.4940156538678803`*^9, 3.494015661870338*^9}, {3.494015862381807*^9, 
   3.4940158673580914`*^9}, {3.5539680782425966`*^9, 3.553968085325009*^9}, {
   3.554437984948521*^9, 3.554437997758539*^9}, {3.5544380373785944`*^9, 
   3.5544380523386154`*^9}, {3.554438084958661*^9, 3.554438089888668*^9}, 
   3.5544381973088183`*^9, {3.5557186640891094`*^9, 3.5557186974791565`*^9}, 
   3.555721433285486*^9, 3.5557751270983067`*^9, {3.555775173878372*^9, 
   3.5557751751283736`*^9}, {3.5860254202573714`*^9, 3.586025420267371*^9}, {
   3.5860264816789055`*^9, 3.5860265104739475`*^9}, 3.5861116554024253`*^9, {
   3.586318138194976*^9, 3.5863181382049756`*^9}, 3.5863182639051514`*^9, {
   3.719027688509983*^9, 3.7190276932052517`*^9}, {3.7190288725377054`*^9, 
   3.719028884217374*^9}, {3.7190747641144037`*^9, 3.7190747938991075`*^9}, {
   3.7190748628690524`*^9, 3.7190748633140774`*^9}, {3.719075241897732*^9, 
   3.7190752485071096`*^9}, {3.719075343696554*^9, 3.719075344479599*^9}, 
   3.719075404938057*^9, {3.719075722864241*^9, 3.7190757230962543`*^9}, {
   3.736630999208562*^9, 3.7366309998966007`*^9}, 3.7366314218887377`*^9, {
   3.745890757360446*^9, 3.7458907899193087`*^9}, {3.7458910414396944`*^9, 
   3.7458910654960704`*^9}, {3.7458952809271793`*^9, 3.7458952814172077`*^9}, 
   3.7458953730714498`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.4940053078671227`*^9, 3.494005310026246*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_.", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "/", "e"}]}], " ", 
    "-", " ", "\n", "  ", 
    RowBox[{"b", "*", "c", "*", 
     RowBox[{"n", "/", "e"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"n", "-", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"c", "^", "2"}], "*", 
            RowBox[{"x", "^", 
             RowBox[{"(", 
              RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.553968162183943*^9, 
   3.5539681851627836`*^9}, {3.554438058758624*^9, 3.554438059968626*^9}, 
   3.555714908126317*^9, 3.555715055236523*^9, 3.555718733889207*^9, 
   3.555721527285618*^9, {3.555721591635708*^9, 3.555721603375725*^9}, {
   3.555721660045804*^9, 3.555721679935832*^9}, {3.5557220722263813`*^9, 
   3.5557220760563865`*^9}, 3.5557225762470865`*^9, {3.5557294509142113`*^9, 
   3.555729470674239*^9}, 3.555775136288319*^9, {3.555775178048378*^9, 
   3.5557751804483814`*^9}, {3.585154065811986*^9, 3.585154078728809*^9}, {
   3.5860255405175457`*^9, 3.586025540527546*^9}, 3.5860256583752165`*^9, 
   3.586026499378931*^9, {3.5860265312364774`*^9, 3.5860265451714973`*^9}, {
   3.5863157512838583`*^9, 3.586315757463867*^9}, {3.586316277597108*^9, 
   3.5863162979371357`*^9}, {3.5863181382149754`*^9, 3.586318138234976*^9}, 
   3.586318266255155*^9, 3.706141512028139*^9, 3.7152323946093254`*^9, 
   3.7152330941323357`*^9, {3.7190276979055204`*^9, 3.719027733935581*^9}, 
   3.7190288472342587`*^9, {3.719028908781779*^9, 3.7190289530073085`*^9}, {
   3.7190290319118214`*^9, 3.7190290321398344`*^9}, 3.7190348369134474`*^9, {
   3.7190747345217113`*^9, 3.7190747477444677`*^9}, {3.719075453387828*^9, 
   3.719075505031782*^9}, {3.719075603557417*^9, 3.7190756039504395`*^9}, {
   3.7190756492120285`*^9, 3.7190756676430826`*^9}, 3.7201602819240985`*^9, 
   3.720200507548534*^9, 3.73662242928039*^9, {3.736631000542638*^9, 
   3.736631001046667*^9}, 3.736631425729957*^9, {3.7458908912561045`*^9, 
   3.7458909161845303`*^9}, {3.7458911149609*^9, 3.74589114888684*^9}, {
   3.7458912413041263`*^9, 3.74589125045465*^9}, 3.745891397976087*^9, 
   3.745891918134839*^9, {3.7458952827282825`*^9, 3.7458952836583357`*^9}, 
   3.7458953854391575`*^9, {3.7459398640044684`*^9, 3.745939889419922*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"ArcCoth", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_.", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "/", "e"}]}], " ", 
    "-", " ", "\n", "  ", 
    RowBox[{"b", "*", "c", "*", 
     RowBox[{"n", "/", "e"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"n", "-", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"c", "^", "2"}], "*", 
            RowBox[{"x", "^", 
             RowBox[{"(", 
              RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.553968162183943*^9, 
   3.5539681851627836`*^9}, {3.554438058758624*^9, 3.554438059968626*^9}, 
   3.555714908126317*^9, 3.555715055236523*^9, 3.555718733889207*^9, 
   3.555721527285618*^9, {3.555721591635708*^9, 3.555721603375725*^9}, {
   3.555721660045804*^9, 3.555721679935832*^9}, {3.5557220722263813`*^9, 
   3.5557220760563865`*^9}, 3.5557225762470865`*^9, {3.5557294509142113`*^9, 
   3.555729470674239*^9}, 3.555775136288319*^9, {3.555775178048378*^9, 
   3.5557751804483814`*^9}, {3.585154065811986*^9, 3.585154078728809*^9}, {
   3.5860255405175457`*^9, 3.586025540527546*^9}, 3.5860256583752165`*^9, 
   3.586026499378931*^9, {3.5860265312364774`*^9, 3.5860265451714973`*^9}, {
   3.5863157512838583`*^9, 3.586315757463867*^9}, {3.586316277597108*^9, 
   3.5863162979371357`*^9}, {3.5863181382149754`*^9, 3.586318138234976*^9}, 
   3.586318266255155*^9, 3.706141512028139*^9, 3.7152323946093254`*^9, 
   3.7152330941323357`*^9, {3.7190276979055204`*^9, 3.719027733935581*^9}, 
   3.7190288472342587`*^9, {3.719028908781779*^9, 3.7190289530073085`*^9}, {
   3.7190290319118214`*^9, 3.7190290321398344`*^9}, 3.7190348369134474`*^9, {
   3.7190747345217113`*^9, 3.7190747477444677`*^9}, {3.719075453387828*^9, 
   3.719075505031782*^9}, {3.719075603557417*^9, 3.7190756039504395`*^9}, {
   3.7190756492120285`*^9, 3.7190756676430826`*^9}, 3.7201602819240985`*^9, 
   3.720200507548534*^9, 3.73662242928039*^9, {3.736631000542638*^9, 
   3.736631001046667*^9}, 3.736631425729957*^9, {3.7458908912561045`*^9, 
   3.7458909161845303`*^9}, {3.7458911149609*^9, 3.74589114888684*^9}, {
   3.7458912413041263`*^9, 3.74589125045465*^9}, {3.7458913312422705`*^9, 
   3.7458913370076*^9}, 3.7458913673113337`*^9, 3.745891400895254*^9, 
   3.7458919214310274`*^9, {3.7458953096878242`*^9, 3.7458953102508564`*^9}, 
   3.7458953837270594`*^9, 3.745895429478676*^9, {3.745939884068616*^9, 
   3.7459398926761084`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalF]"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.5536180162118325`*^9, {3.5536181773620586`*^9, 
   3.553618184892069*^9}, {3.5536184787824802`*^9, 3.5536184787824802`*^9}, {
   3.5536185303625526`*^9, 3.5536185303625526`*^9}, {3.553618804282936*^9, 
   3.5536188053529377`*^9}, 3.553966022715358*^9, {3.5557149676464005`*^9, 
   3.5557149676464005`*^9}, {3.555715015066467*^9, 3.555715015066467*^9}, 
   3.555715325186901*^9, {3.555721683865837*^9, 3.5557217174158845`*^9}, {
   3.5557220560763583`*^9, 3.555722056246359*^9}, {3.555722398856838*^9, 
   3.5557223990268383`*^9}, {3.555729434124188*^9, 3.5557294411241975`*^9}, {
   3.555729504284286*^9, 3.5557295051542873`*^9}, 3.555775173368371*^9, 
   3.556298635391014*^9, {3.5851540523959627`*^9, 3.5851540523959627`*^9}, {
   3.585154097292841*^9, 3.585154097292841*^9}, 3.5851562220162735`*^9, 
   3.5860254202573714`*^9, {3.586315733723834*^9, 3.586315733723834*^9}, 
   3.5863181381849756`*^9, 3.6201611909713435`*^9, {3.7190276491227303`*^9, 
   3.719027652298912*^9}, 3.719027684653763*^9, 3.7190287545879593`*^9, {
   3.7190288385937643`*^9, 3.719028866880382*^9}, 3.719029023615347*^9, 
   3.719029067829876*^9, {3.719074708887245*^9, 3.719074708887245*^9}, {
   3.719074760993225*^9, 3.7190747776661787`*^9}, {3.719075087787917*^9, 
   3.7190750962574015`*^9}, {3.7190751401769133`*^9, 
   3.7190751401769133`*^9}, {3.7190795557774715`*^9, 3.719079556020485*^9}, {
   3.7366224243171062`*^9, 3.7366224245741205`*^9}, {3.7366235449052*^9, 
   3.736623545208217*^9}, 3.7366309981264997`*^9, {3.745866310005145*^9, 
   3.745866310204157*^9}, {3.745890542132136*^9, 3.7458905426121635`*^9}, {
   3.74589065042833*^9, 3.74589065060434*^9}, 3.7458908830366344`*^9, {
   3.745891026711852*^9, 3.745891034140277*^9}, {3.745891264407448*^9, 
   3.7458912955912313`*^9}, 3.7458919258372793`*^9, 3.745892458973773*^9, 
   3.745905255053667*^9, {3.7459400778336987`*^9, 3.745940091830499*^9}, {
   3.745945143306427*^9, 3.7459451435544415`*^9}, {3.745945196804487*^9, 
   3.745945196804487*^9}, 3.745946931776722*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{{3.493099207935931*^9, 3.4930992149659414`*^9}, {
  3.7190790922529593`*^9, 3.7190790947771034`*^9}}],

Cell[TextData[{
 "Basis: If ",
 Cell[BoxData[
  RowBox[{"k", "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"F", "[", "x", "]"}], "\[Equal]", 
   RowBox[{"k", " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{"k", "-", "1"}]], " ", 
       RowBox[{"F", "[", 
        SuperscriptBox["x", "k"], "]"}]}], ",", "x", ",", 
      SuperscriptBox["x", 
       RowBox[{"1", "/", "k"}]]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     SuperscriptBox["x", 
      RowBox[{"1", "/", "k"}]]}]}]}]], "Input",
  CellChangeTimes->{{3.496607156053342*^9, 3.4966071870033855`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, {3.496607078713234*^9, 
   3.4966070808932366`*^9}, {3.4966071978234005`*^9, 3.496607200693404*^9}, {
   3.4966322361067057`*^9, 3.4966322383967094`*^9}, {3.5182408053387165`*^9, 
   3.518240855102804*^9}, {3.518240891700468*^9, 3.5182409026360874`*^9}, {
   3.5182410660151744`*^9, 3.5182410727231865`*^9}, {3.51824110908685*^9, 
   3.5182411327052917`*^9}, {3.518241193217798*^9, 3.5182411959634027`*^9}, {
   3.518291448974951*^9, 3.5182914676169834`*^9}, {3.518291524323083*^9, 
   3.51829153976711*^9}, {3.518291575631573*^9, 3.518291589562398*^9}, {
   3.5182917514854827`*^9, 3.5182917625459023`*^9}, {3.5197703785418744`*^9, 
   3.5197704585544147`*^9}, {3.5197823003612146`*^9, 3.519782301297216*^9}, {
   3.5327273625227003`*^9, 3.532727372032713*^9}, {3.5330847121896152`*^9, 
   3.533084735369648*^9}, {3.533085202270302*^9, 3.5330852300403404`*^9}, {
   3.5330855269607563`*^9, 3.5330855372607703`*^9}, {3.533085675350964*^9, 
   3.533085678880969*^9}, {3.533085724121032*^9, 3.533085727061036*^9}, {
   3.533086048201486*^9, 3.5330860543014946`*^9}, {3.533087161943045*^9, 
   3.5330871737730618`*^9}, {3.533087596973654*^9, 3.533087624703693*^9}, {
   3.5330880821743336`*^9, 3.5330880821743336`*^9}, {3.5330881138943777`*^9, 
   3.533088126024395*^9}, {3.5362820775082874`*^9, 3.5362821103483334`*^9}, {
   3.613355450820037*^9, 3.613355457570047*^9}, {3.613355779670498*^9, 
   3.613355779670498*^9}, {3.613356168641042*^9, 3.613356168641042*^9}, {
   3.613669569847045*^9, 3.613669602397091*^9}, 3.613679965449111*^9, {
   3.613758903601014*^9, 3.613758925459264*^9}, {3.613775676664378*^9, 
   3.6137756776314335`*^9}, {3.745865614608371*^9, 3.7458656230578537`*^9}, {
   3.7459421676862316`*^9, 3.7459421676862316`*^9}, {3.7459425881302795`*^9, 
   3.7459426094294977`*^9}, {3.7459426601714*^9, 3.7459426601714*^9}, {
   3.7459427507975836`*^9, 3.7459427726808352`*^9}, {3.7459445503255105`*^9, 
   3.7459445503255105`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalF]"}]]],
 ", ",
 "let ",
 Cell[BoxData[
  RowBox[{"k", "\[Rule]", 
   RowBox[{"Denominator", "[", "n", "]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.493098879405472*^9, 3.493098884745479*^9}, {3.493099207935931*^9, 
   3.4930992149659414`*^9}, 3.4930996737265835`*^9, 3.493099827186798*^9, {
   3.4932434943005557`*^9, 3.493243522320595*^9}, {3.494005203823172*^9, 
   3.494005223116276*^9}, {3.494005912167687*^9, 3.494005912167687*^9}, {
   3.494005996704522*^9, 3.494006005111003*^9}, {3.4940117189798174`*^9, 
   3.494011721274949*^9}, {3.494011926169668*^9, 3.4940119289428267`*^9}, {
   3.4940120348468843`*^9, 3.494012036980006*^9}, {3.494013442081373*^9, 
   3.494013450779871*^9}, {3.5536184826024857`*^9, 3.5536184826024857`*^9}, {
   3.553618527502548*^9, 3.553618527502548*^9}, {3.5557150063264546`*^9, 
   3.5557150070964556`*^9}, {3.5557214656055317`*^9, 
   3.5557214656055317`*^9}, {3.5557217241458936`*^9, 
   3.5557217241458936`*^9}, {3.555729445104203*^9, 3.5557294457742043`*^9}, {
   3.5851541025188503`*^9, 3.5851541025188503`*^9}, {3.5863157450938497`*^9, 
   3.5863157450938497`*^9}, {3.7190276609994097`*^9, 
   3.7190276609994097`*^9}, {3.7190288418889527`*^9, 
   3.7190288420679626`*^9}, {3.719074683534795*^9, 3.7190746935193663`*^9}, {
   3.719075143824122*^9, 3.719075143824122*^9}, {3.7459398558360014`*^9, 
   3.7459398558360014`*^9}, {3.745945232820547*^9, 3.745945232820547*^9}, 
   3.7459453806670036`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"ArcTanh", "[", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "n"]}], "]"}]}]}], 
    RowBox[{"d", "+", 
     RowBox[{"e", " ", "x"}]}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "k"}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["x", 
          RowBox[{"k", "-", "1"}]], " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"ArcTanh", "[", 
             RowBox[{"c", " ", 
              SuperscriptBox["x", 
               RowBox[{"k", " ", "n"}]]}], "]"}]}]}], ")"}]}], 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", 
          SuperscriptBox["x", "k"]}]}]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     SuperscriptBox["x", 
      RowBox[{"1", "/", "k"}]]}], "]"}]}]}]], "Subsubtitle",
 CellChangeTimes->{{3.493098332554706*^9, 3.4930984922049294`*^9}, {
   3.4930985835950575`*^9, 3.4930986777351894`*^9}, {3.4930988533254347`*^9, 
   3.4930988578754416`*^9}, {3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4930993574561405`*^9, 3.493099400886202*^9}, {3.493099526816378*^9, 
   3.49309953534639*^9}, 3.4931705981281786`*^9, {3.493170768098417*^9, 
   3.4931708122284784`*^9}, {3.4940050446890697`*^9, 
   3.4940051357132764`*^9}, {3.494010254898077*^9, 3.4940102990006*^9}, {
   3.494010355515832*^9, 3.4940103650133753`*^9}, 3.4940116760473623`*^9, {
   3.4940156538678803`*^9, 3.494015661870338*^9}, {3.494015862381807*^9, 
   3.4940158673580914`*^9}, {3.5539680782425966`*^9, 3.553968085325009*^9}, {
   3.554437984948521*^9, 3.554437997758539*^9}, {3.5544380373785944`*^9, 
   3.5544380523386154`*^9}, {3.554438084958661*^9, 3.554438089888668*^9}, 
   3.5544381973088183`*^9, {3.5557186640891094`*^9, 3.5557186974791565`*^9}, 
   3.555721433285486*^9, 3.5557751270983067`*^9, {3.555775173878372*^9, 
   3.5557751751283736`*^9}, {3.5860254202573714`*^9, 3.586025420267371*^9}, {
   3.5860264816789055`*^9, 3.5860265104739475`*^9}, 3.5861116554024253`*^9, {
   3.586318138194976*^9, 3.5863181382049756`*^9}, 3.5863182639051514`*^9, {
   3.719027688509983*^9, 3.7190276932052517`*^9}, {3.7190288725377054`*^9, 
   3.719028884217374*^9}, {3.7190747641144037`*^9, 3.7190747938991075`*^9}, {
   3.7190748628690524`*^9, 3.7190748633140774`*^9}, {3.719075241897732*^9, 
   3.7190752485071096`*^9}, {3.719075343696554*^9, 3.719075344479599*^9}, 
   3.719075404938057*^9, {3.719075722864241*^9, 3.7190757230962543`*^9}, {
   3.736630999208562*^9, 3.7366309998966007`*^9}, 3.7366314218887377`*^9, {
   3.745890757360446*^9, 3.7458907899193087`*^9}, {3.7458910414396944`*^9, 
   3.7458910654960704`*^9}, {3.745945251019588*^9, 3.74594534493996*^9}, {
   3.745946932358755*^9, 3.74594693279578*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.4940053078671227`*^9, 3.494005310026246*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", "=", 
       RowBox[{"Denominator", "[", "n", "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{"k", "*", 
      RowBox[{"Subst", "[", 
       RowBox[{
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "^", 
            RowBox[{"(", 
             RowBox[{"k", "-", "1"}], ")"}]}], "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", 
               RowBox[{"ArcTanh", "[", 
                RowBox[{"c", "*", 
                 RowBox[{"x", "^", 
                  RowBox[{"(", 
                   RowBox[{"k", "*", "n"}], ")"}]}]}], "]"}]}]}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"d", "+", 
              RowBox[{"e", "*", 
               RowBox[{"x", "^", "k"}]}]}], ")"}]}]}], ",", "x"}], "]"}], ",",
         "x", ",", 
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", "k"}], ")"}]}]}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"FractionQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.553968162183943*^9, 
   3.5539681851627836`*^9}, {3.554438058758624*^9, 3.554438059968626*^9}, 
   3.555714908126317*^9, 3.555715055236523*^9, 3.555718733889207*^9, 
   3.555721527285618*^9, {3.555721591635708*^9, 3.555721603375725*^9}, {
   3.555721660045804*^9, 3.555721679935832*^9}, {3.5557220722263813`*^9, 
   3.5557220760563865`*^9}, 3.5557225762470865`*^9, {3.5557294509142113`*^9, 
   3.555729470674239*^9}, 3.555775136288319*^9, {3.555775178048378*^9, 
   3.5557751804483814`*^9}, {3.585154065811986*^9, 3.585154078728809*^9}, {
   3.5860255405175457`*^9, 3.586025540527546*^9}, 3.5860256583752165`*^9, 
   3.586026499378931*^9, {3.5860265312364774`*^9, 3.5860265451714973`*^9}, {
   3.5863157512838583`*^9, 3.586315757463867*^9}, {3.586316277597108*^9, 
   3.5863162979371357`*^9}, {3.5863181382149754`*^9, 3.586318138234976*^9}, 
   3.586318266255155*^9, 3.706141512028139*^9, 3.7152323946093254`*^9, 
   3.7152330941323357`*^9, {3.7190276979055204`*^9, 3.719027733935581*^9}, 
   3.7190288472342587`*^9, {3.719028908781779*^9, 3.7190289530073085`*^9}, {
   3.7190290319118214`*^9, 3.7190290321398344`*^9}, 3.7190348369134474`*^9, {
   3.7190747345217113`*^9, 3.7190747477444677`*^9}, {3.719075453387828*^9, 
   3.719075505031782*^9}, {3.719075603557417*^9, 3.7190756039504395`*^9}, {
   3.7190756492120285`*^9, 3.7190756676430826`*^9}, 3.7201602819240985`*^9, 
   3.720200507548534*^9, 3.73662242928039*^9, {3.736631000542638*^9, 
   3.736631001046667*^9}, 3.736631425729957*^9, {3.7458908912561045`*^9, 
   3.7458909161845303`*^9}, {3.7458911149609*^9, 3.74589114888684*^9}, {
   3.7458912413041263`*^9, 3.74589125045465*^9}, 3.745891397976087*^9, 
   3.745891918134839*^9, 3.7459030499195404`*^9, {3.745940047685974*^9, 
   3.745940049324068*^9}, 3.745940113084715*^9, 3.7459454108687305`*^9, {
   3.7459454615176277`*^9, 3.7459454907963023`*^9}, {3.745946933305809*^9, 
   3.7459469347028894`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"ArcCoth", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", "=", 
       RowBox[{"Denominator", "[", "n", "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{"k", "*", 
      RowBox[{"Subst", "[", 
       RowBox[{
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "^", 
            RowBox[{"(", 
             RowBox[{"k", "-", "1"}], ")"}]}], "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", 
               RowBox[{"ArcCoth", "[", 
                RowBox[{"c", "*", 
                 RowBox[{"x", "^", 
                  RowBox[{"(", 
                   RowBox[{"k", "*", "n"}], ")"}]}]}], "]"}]}]}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"d", "+", 
              RowBox[{"e", "*", 
               RowBox[{"x", "^", "k"}]}]}], ")"}]}]}], ",", "x"}], "]"}], ",",
         "x", ",", 
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", "k"}], ")"}]}]}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"FractionQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.553968162183943*^9, 
   3.5539681851627836`*^9}, {3.554438058758624*^9, 3.554438059968626*^9}, 
   3.555714908126317*^9, 3.555715055236523*^9, 3.555718733889207*^9, 
   3.555721527285618*^9, {3.555721591635708*^9, 3.555721603375725*^9}, {
   3.555721660045804*^9, 3.555721679935832*^9}, {3.5557220722263813`*^9, 
   3.5557220760563865`*^9}, 3.5557225762470865`*^9, {3.5557294509142113`*^9, 
   3.555729470674239*^9}, 3.555775136288319*^9, {3.555775178048378*^9, 
   3.5557751804483814`*^9}, {3.585154065811986*^9, 3.585154078728809*^9}, {
   3.5860255405175457`*^9, 3.586025540527546*^9}, 3.5860256583752165`*^9, 
   3.586026499378931*^9, {3.5860265312364774`*^9, 3.5860265451714973`*^9}, {
   3.5863157512838583`*^9, 3.586315757463867*^9}, {3.586316277597108*^9, 
   3.5863162979371357`*^9}, {3.5863181382149754`*^9, 3.586318138234976*^9}, 
   3.586318266255155*^9, 3.706141512028139*^9, 3.7152323946093254`*^9, 
   3.7152330941323357`*^9, {3.7190276979055204`*^9, 3.719027733935581*^9}, 
   3.7190288472342587`*^9, {3.719028908781779*^9, 3.7190289530073085`*^9}, {
   3.7190290319118214`*^9, 3.7190290321398344`*^9}, 3.7190348369134474`*^9, {
   3.7190747345217113`*^9, 3.7190747477444677`*^9}, {3.719075453387828*^9, 
   3.719075505031782*^9}, {3.719075603557417*^9, 3.7190756039504395`*^9}, {
   3.7190756492120285`*^9, 3.7190756676430826`*^9}, 3.7201602819240985`*^9, 
   3.720200507548534*^9, 3.73662242928039*^9, {3.736631000542638*^9, 
   3.736631001046667*^9}, 3.736631425729957*^9, {3.7458908912561045`*^9, 
   3.7458909161845303`*^9}, {3.7458911149609*^9, 3.74589114888684*^9}, {
   3.7458912413041263`*^9, 3.74589125045465*^9}, 3.745891397976087*^9, 
   3.745891918134839*^9, 3.7459030499195404`*^9, {3.745940047685974*^9, 
   3.745940049324068*^9}, 3.745940113084715*^9, 3.7459454108687305`*^9, {
   3.7459454615176277`*^9, 3.745945511067462*^9}, {3.7459469386281137`*^9, 
   3.7459469405252223`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[NotEqual]", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.5536180162118325`*^9, {3.5536181773620586`*^9, 
   3.553618184892069*^9}, {3.5536184787824802`*^9, 3.5536184787824802`*^9}, {
   3.5536185303625526`*^9, 3.5536185303625526`*^9}, {3.553618804282936*^9, 
   3.5536188053529377`*^9}, 3.553966022715358*^9, {3.5557149676464005`*^9, 
   3.5557149676464005`*^9}, {3.555715015066467*^9, 3.555715015066467*^9}, 
   3.555715325186901*^9, {3.555721683865837*^9, 3.5557217174158845`*^9}, {
   3.5557220560763583`*^9, 3.555722056246359*^9}, {3.555722398856838*^9, 
   3.5557223990268383`*^9}, {3.555729434124188*^9, 3.5557294411241975`*^9}, {
   3.555729504284286*^9, 3.5557295051542873`*^9}, 3.555775173368371*^9, 
   3.556298635391014*^9, {3.5851540523959627`*^9, 3.5851540523959627`*^9}, {
   3.585154097292841*^9, 3.585154097292841*^9}, 3.5851562220162735`*^9, 
   3.5860254202573714`*^9, {3.586315733723834*^9, 3.586315733723834*^9}, 
   3.5863181381849756`*^9, 3.6201611909713435`*^9, {3.7190276491227303`*^9, 
   3.719027652298912*^9}, 3.719027684653763*^9, 3.7190287545879593`*^9, {
   3.7190288385937643`*^9, 3.719028866880382*^9}, 3.719029023615347*^9, 
   3.719029067829876*^9, {3.719074708887245*^9, 3.719074708887245*^9}, {
   3.719074760993225*^9, 3.7190747776661787`*^9}, {3.719075087787917*^9, 
   3.7190750962574015`*^9}, {3.7190751401769133`*^9, 
   3.7190751401769133`*^9}, {3.7190795557774715`*^9, 3.719079556020485*^9}, {
   3.7366224243171062`*^9, 3.7366224245741205`*^9}, {3.7366235449052*^9, 
   3.736623545208217*^9}, 3.7366309981264997`*^9, {3.745866310005145*^9, 
   3.745866310204157*^9}, {3.745890542132136*^9, 3.7458905426121635`*^9}, {
   3.74589065042833*^9, 3.74589065060434*^9}, 3.7458908830366344`*^9, 
   3.745892459845823*^9, 3.745895284360376*^9, 3.7459072594683127`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{{3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4940052861338797`*^9, 3.4940052928402634`*^9}, {3.554052882688694*^9, 
   3.554052897948715*^9}, {3.5540534414694767`*^9, 3.5540534433294787`*^9}, 
   3.555721426425477*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "\[Equal]", 
   RowBox[{"b", " ", "c", " ", "n", " ", 
    FractionBox[
     SuperscriptBox["x", 
      RowBox[{"n", "-", "1"}]], 
     RowBox[{"1", "-", 
      RowBox[{
       SuperscriptBox["c", "2"], " ", 
       SuperscriptBox["x", 
        RowBox[{"2", " ", "n"}]]}]}]]}]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.7190751503354945`*^9, 3.7190751505865088`*^9}, {
   3.7190751857755213`*^9, 3.719075195155058*^9}, {3.7366309986485295`*^9, 
   3.7366309986495295`*^9}, {3.736631417996515*^9, 3.736631417996515*^9}, {
   3.7458952852444267`*^9, 3.7458952852444267`*^9}, {3.745895363165883*^9, 
   3.745895363165883*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[NotEqual]", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.493098879405472*^9, 3.493098884745479*^9}, {3.493099207935931*^9, 
   3.4930992149659414`*^9}, 3.4930996737265835`*^9, 3.493099827186798*^9, {
   3.4932434943005557`*^9, 3.493243522320595*^9}, {3.494005203823172*^9, 
   3.494005223116276*^9}, {3.494005912167687*^9, 3.494005912167687*^9}, {
   3.494005996704522*^9, 3.494006005111003*^9}, {3.4940117189798174`*^9, 
   3.494011721274949*^9}, {3.494011926169668*^9, 3.4940119289428267`*^9}, {
   3.4940120348468843`*^9, 3.494012036980006*^9}, {3.494013442081373*^9, 
   3.494013450779871*^9}, {3.5536184826024857`*^9, 3.5536184826024857`*^9}, {
   3.553618527502548*^9, 3.553618527502548*^9}, {3.5557150063264546`*^9, 
   3.5557150070964556`*^9}, {3.5557214656055317`*^9, 
   3.5557214656055317`*^9}, {3.5557217241458936`*^9, 
   3.5557217241458936`*^9}, {3.555729445104203*^9, 3.5557294457742043`*^9}, {
   3.5851541025188503`*^9, 3.5851541025188503`*^9}, {3.5863157450938497`*^9, 
   3.5863157450938497`*^9}, {3.7190276609994097`*^9, 
   3.7190276609994097`*^9}, {3.7190288418889527`*^9, 
   3.7190288420679626`*^9}, {3.719074683534795*^9, 3.7190746935193663`*^9}, {
   3.719075143824122*^9, 3.719075143824122*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], 
       RowBox[{"e", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "c", " ", "n"}], 
    RowBox[{"e", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{"n", "-", "1"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], ")"}], 
        RowBox[{"m", "+", "1"}]]}], 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["c", "2"], " ", 
        SuperscriptBox["x", 
         RowBox[{"2", " ", "n"}]]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellChangeTimes->{{3.493098332554706*^9, 3.4930984922049294`*^9}, {
   3.4930985835950575`*^9, 3.4930986777351894`*^9}, {3.4930988533254347`*^9, 
   3.4930988578754416`*^9}, {3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4930993574561405`*^9, 3.493099400886202*^9}, {3.493099526816378*^9, 
   3.49309953534639*^9}, 3.4931705981281786`*^9, {3.493170768098417*^9, 
   3.4931708122284784`*^9}, {3.4940050446890697`*^9, 
   3.4940051357132764`*^9}, {3.494010254898077*^9, 3.4940102990006*^9}, {
   3.494010355515832*^9, 3.4940103650133753`*^9}, 3.4940116760473623`*^9, {
   3.4940156538678803`*^9, 3.494015661870338*^9}, {3.494015862381807*^9, 
   3.4940158673580914`*^9}, {3.5539680782425966`*^9, 3.553968085325009*^9}, {
   3.554437984948521*^9, 3.554437997758539*^9}, {3.5544380373785944`*^9, 
   3.5544380523386154`*^9}, {3.554438084958661*^9, 3.554438089888668*^9}, 
   3.5544381973088183`*^9, {3.5557186640891094`*^9, 3.5557186974791565`*^9}, 
   3.555721433285486*^9, 3.5557751270983067`*^9, {3.555775173878372*^9, 
   3.5557751751283736`*^9}, {3.5860254202573714`*^9, 3.586025420267371*^9}, {
   3.5860264816789055`*^9, 3.5860265104739475`*^9}, 3.5861116554024253`*^9, {
   3.586318138194976*^9, 3.5863181382049756`*^9}, 3.5863182639051514`*^9, {
   3.719027688509983*^9, 3.7190276932052517`*^9}, {3.7190288725377054`*^9, 
   3.719028884217374*^9}, {3.7190747641144037`*^9, 3.7190747938991075`*^9}, {
   3.7190748628690524`*^9, 3.7190748633140774`*^9}, {3.719075241897732*^9, 
   3.7190752485071096`*^9}, {3.719075343696554*^9, 3.719075344479599*^9}, 
   3.719075404938057*^9, {3.719075722864241*^9, 3.7190757230962543`*^9}, {
   3.736630999208562*^9, 3.7366309998966007`*^9}, 3.7366314218887377`*^9, {
   3.745890757360446*^9, 3.7458907899193087`*^9}, {3.7458952858614616`*^9, 
   3.7458952864354944`*^9}, 3.7458953760156183`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.4940053078671227`*^9, 3.494005310026246*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", "c", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"n", "-", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"c", "^", "2"}], "*", 
            RowBox[{"x", "^", 
             RowBox[{"(", 
              RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.553968162183943*^9, 
   3.5539681851627836`*^9}, {3.554438058758624*^9, 3.554438059968626*^9}, 
   3.555714908126317*^9, 3.555715055236523*^9, 3.555718733889207*^9, 
   3.555721527285618*^9, {3.555721591635708*^9, 3.555721603375725*^9}, {
   3.555721660045804*^9, 3.555721679935832*^9}, {3.5557220722263813`*^9, 
   3.5557220760563865`*^9}, 3.5557225762470865`*^9, {3.5557294509142113`*^9, 
   3.555729470674239*^9}, 3.555775136288319*^9, {3.555775178048378*^9, 
   3.5557751804483814`*^9}, {3.585154065811986*^9, 3.585154078728809*^9}, {
   3.5860255405175457`*^9, 3.586025540527546*^9}, 3.5860256583752165`*^9, 
   3.586026499378931*^9, {3.5860265312364774`*^9, 3.5860265451714973`*^9}, {
   3.5863157512838583`*^9, 3.586315757463867*^9}, {3.586316277597108*^9, 
   3.5863162979371357`*^9}, {3.5863181382149754`*^9, 3.586318138234976*^9}, 
   3.586318266255155*^9, 3.706141512028139*^9, 3.7152323946093254`*^9, 
   3.7152330941323357`*^9, {3.7190276979055204`*^9, 3.719027733935581*^9}, 
   3.7190288472342587`*^9, {3.719028908781779*^9, 3.7190289530073085`*^9}, {
   3.7190290319118214`*^9, 3.7190290321398344`*^9}, 3.7190348369134474`*^9, {
   3.7190747345217113`*^9, 3.7190747477444677`*^9}, {3.719075453387828*^9, 
   3.719075505031782*^9}, {3.719075603557417*^9, 3.7190756039504395`*^9}, {
   3.7190756492120285`*^9, 3.7190756676430826`*^9}, 3.7201602819240985`*^9, 
   3.720200507548534*^9, 3.73662242928039*^9, {3.736631000542638*^9, 
   3.736631001046667*^9}, 3.736631425729957*^9, {3.7458908912561045`*^9, 
   3.7458909161845303`*^9}, {3.7458918787205844`*^9, 
   3.7458918834958577`*^9}, {3.7458952872025385`*^9, 3.7458952879735823`*^9}, 
   3.745895379054792*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"ArcCoth", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", "c", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"n", "-", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"c", "^", "2"}], "*", 
            RowBox[{"x", "^", 
             RowBox[{"(", 
              RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.553968162183943*^9, 
   3.5539681851627836`*^9}, {3.554438058758624*^9, 3.554438059968626*^9}, 
   3.555714908126317*^9, 3.555715055236523*^9, 3.555718733889207*^9, 
   3.555721527285618*^9, {3.555721591635708*^9, 3.555721603375725*^9}, {
   3.555721660045804*^9, 3.555721679935832*^9}, {3.5557220722263813`*^9, 
   3.5557220760563865`*^9}, 3.5557225762470865`*^9, {3.5557294509142113`*^9, 
   3.555729470674239*^9}, 3.555775136288319*^9, {3.555775178048378*^9, 
   3.5557751804483814`*^9}, {3.585154065811986*^9, 3.585154078728809*^9}, {
   3.5860255405175457`*^9, 3.586025540527546*^9}, 3.5860256583752165`*^9, 
   3.586026499378931*^9, {3.5860265312364774`*^9, 3.5860265451714973`*^9}, {
   3.5863157512838583`*^9, 3.586315757463867*^9}, {3.586316277597108*^9, 
   3.5863162979371357`*^9}, {3.5863181382149754`*^9, 3.586318138234976*^9}, 
   3.586318266255155*^9, 3.706141512028139*^9, 3.7152323946093254`*^9, 
   3.7152330941323357`*^9, {3.7190276979055204`*^9, 3.719027733935581*^9}, 
   3.7190288472342587`*^9, {3.719028908781779*^9, 3.7190289530073085`*^9}, {
   3.7190290319118214`*^9, 3.7190290321398344`*^9}, 3.7190348369134474`*^9, {
   3.7190747345217113`*^9, 3.7190747477444677`*^9}, {3.719075453387828*^9, 
   3.719075505031782*^9}, {3.719075603557417*^9, 3.7190756039504395`*^9}, {
   3.7190756492120285`*^9, 3.7190756676430826`*^9}, 3.7201602819240985`*^9, 
   3.720200507548534*^9, 3.73662242928039*^9, {3.736631000542638*^9, 
   3.736631001046667*^9}, 3.736631425729957*^9, {3.7458908912561045`*^9, 
   3.7458909161845303`*^9}, {3.7458909462902527`*^9, 3.7458909529686346`*^9}, 
   3.7458917939997387`*^9, {3.745895310897894*^9, 3.7458953113839216`*^9}, 
   3.745895380871896*^9, 3.7458954338239245`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"p", "-", "1"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{"m", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.5536180162118325`*^9, {3.5536181773620586`*^9, 
   3.553618184892069*^9}, {3.5536184787824802`*^9, 3.5536184787824802`*^9}, {
   3.5536185303625526`*^9, 3.5536185303625526`*^9}, {3.553618804282936*^9, 
   3.5536188053529377`*^9}, 3.553966022715358*^9, {3.5557149676464005`*^9, 
   3.5557149676464005`*^9}, {3.555715015066467*^9, 3.555715015066467*^9}, 
   3.555715325186901*^9, {3.555721683865837*^9, 3.5557217174158845`*^9}, {
   3.5557220560763583`*^9, 3.555722056246359*^9}, {3.555722398856838*^9, 
   3.5557223990268383`*^9}, {3.555729434124188*^9, 3.5557294411241975`*^9}, {
   3.555729504284286*^9, 3.5557295051542873`*^9}, 3.555775173368371*^9, 
   3.556298635391014*^9, {3.5851540523959627`*^9, 3.5851540523959627`*^9}, {
   3.585154097292841*^9, 3.585154097292841*^9}, 3.5851562220162735`*^9, 
   3.5860254202573714`*^9, {3.586315733723834*^9, 3.586315733723834*^9}, 
   3.5863181381849756`*^9, 3.6201611909713435`*^9, {3.7190276491227303`*^9, 
   3.719027652298912*^9}, 3.719027684653763*^9, 3.7190287545879593`*^9, {
   3.7190288385937643`*^9, 3.719028866880382*^9}, 3.719029023615347*^9, 
   3.719029067829876*^9, {3.719074708887245*^9, 3.719074708887245*^9}, {
   3.719074760993225*^9, 3.7190747776661787`*^9}, {3.719075087787917*^9, 
   3.7190750962574015`*^9}, {3.7190751401769133`*^9, 
   3.7190751401769133`*^9}, {3.7190795557774715`*^9, 3.719079556020485*^9}, {
   3.7366224243171062`*^9, 3.7366224245741205`*^9}, {3.7366235449052*^9, 
   3.736623545208217*^9}, 3.7366309981264997`*^9, {3.745866310005145*^9, 
   3.745866310204157*^9}, {3.745890542132136*^9, 3.7458905426121635`*^9}, {
   3.74589065042833*^9, 3.74589065060434*^9}, 3.7458908830366344`*^9, 
   3.745892459845823*^9, {3.7459052556367*^9, 3.7459053181102734`*^9}, {
   3.7459053825199575`*^9, 3.745905396319747*^9}, 3.7459073008476796`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{{3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4940052861338797`*^9, 3.4940052928402634`*^9}, {3.554052882688694*^9, 
   3.554052897948715*^9}, {3.5540534414694767`*^9, 3.5540534433294787`*^9}, 
   3.555721426425477*^9, {3.745905331372032*^9, 3.7459053362993135`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"p", "-", "1"}], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"m", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.493098879405472*^9, 3.493098884745479*^9}, {3.493099207935931*^9, 
   3.4930992149659414`*^9}, 3.4930996737265835`*^9, 3.493099827186798*^9, {
   3.4932434943005557`*^9, 3.493243522320595*^9}, {3.494005203823172*^9, 
   3.494005223116276*^9}, {3.494005912167687*^9, 3.494005912167687*^9}, {
   3.494005996704522*^9, 3.494006005111003*^9}, {3.4940117189798174`*^9, 
   3.494011721274949*^9}, {3.494011926169668*^9, 3.4940119289428267`*^9}, {
   3.4940120348468843`*^9, 3.494012036980006*^9}, {3.494013442081373*^9, 
   3.494013450779871*^9}, {3.5536184826024857`*^9, 3.5536184826024857`*^9}, {
   3.553618527502548*^9, 3.553618527502548*^9}, {3.5557150063264546`*^9, 
   3.5557150070964556`*^9}, {3.5557214656055317`*^9, 
   3.5557214656055317`*^9}, {3.5557217241458936`*^9, 
   3.5557217241458936`*^9}, {3.555729445104203*^9, 3.5557294457742043`*^9}, {
   3.5851541025188503`*^9, 3.5851541025188503`*^9}, {3.5863157450938497`*^9, 
   3.5863157450938497`*^9}, {3.7190276609994097`*^9, 
   3.7190276609994097`*^9}, {3.7190288418889527`*^9, 
   3.7190288420679626`*^9}, {3.719074683534795*^9, 3.7190746935193663`*^9}, {
   3.719075143824122*^9, 3.719075143824122*^9}, {3.745905347047929*^9, 
   3.745905347047929*^9}, {3.7459054026641097`*^9, 3.7459054026641097`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], " ", 
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], ")"}], "m"], ",", "x"}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellChangeTimes->{{3.493098332554706*^9, 3.4930984922049294`*^9}, {
   3.4930985835950575`*^9, 3.4930986777351894`*^9}, {3.4930988533254347`*^9, 
   3.4930988578754416`*^9}, {3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4930993574561405`*^9, 3.493099400886202*^9}, {3.493099526816378*^9, 
   3.49309953534639*^9}, 3.4931705981281786`*^9, {3.493170768098417*^9, 
   3.4931708122284784`*^9}, {3.4940050446890697`*^9, 
   3.4940051357132764`*^9}, {3.494010254898077*^9, 3.4940102990006*^9}, {
   3.494010355515832*^9, 3.4940103650133753`*^9}, 3.4940116760473623`*^9, {
   3.4940156538678803`*^9, 3.494015661870338*^9}, {3.494015862381807*^9, 
   3.4940158673580914`*^9}, {3.5539680782425966`*^9, 3.553968085325009*^9}, {
   3.554437984948521*^9, 3.554437997758539*^9}, {3.5544380373785944`*^9, 
   3.5544380523386154`*^9}, {3.554438084958661*^9, 3.554438089888668*^9}, 
   3.5544381973088183`*^9, {3.5557186640891094`*^9, 3.5557186974791565`*^9}, 
   3.555721433285486*^9, 3.5557751270983067`*^9, {3.555775173878372*^9, 
   3.5557751751283736`*^9}, {3.5860254202573714`*^9, 3.586025420267371*^9}, {
   3.5860264816789055`*^9, 3.5860265104739475`*^9}, 3.5861116554024253`*^9, {
   3.586318138194976*^9, 3.5863181382049756`*^9}, 3.5863182639051514`*^9, {
   3.719027688509983*^9, 3.7190276932052517`*^9}, {3.7190288725377054`*^9, 
   3.719028884217374*^9}, {3.7190747641144037`*^9, 3.7190747938991075`*^9}, {
   3.7190748628690524`*^9, 3.7190748633140774`*^9}, {3.719075241897732*^9, 
   3.7190752485071096`*^9}, {3.719075343696554*^9, 3.719075344479599*^9}, 
   3.719075404938057*^9, {3.719075722864241*^9, 3.7190757230962543`*^9}, {
   3.736630999208562*^9, 3.7366309998966007`*^9}, 3.7366314218887377`*^9, {
   3.745890757360446*^9, 3.7458907899193087`*^9}, 3.745905354280342*^9, {
   3.7459054241183367`*^9, 3.745905447621681*^9}, {3.7459073014587145`*^9, 
   3.7459073020887504`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.4940053078671227`*^9, 3.494005310026246*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], ")"}], "^", "m"}], ",", "x"}], "]"}], 
     ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.553968162183943*^9, 
   3.5539681851627836`*^9}, {3.554438058758624*^9, 3.554438059968626*^9}, 
   3.555714908126317*^9, 3.555715055236523*^9, 3.555718733889207*^9, 
   3.555721527285618*^9, {3.555721591635708*^9, 3.555721603375725*^9}, {
   3.555721660045804*^9, 3.555721679935832*^9}, {3.5557220722263813`*^9, 
   3.5557220760563865`*^9}, 3.5557225762470865`*^9, {3.5557294509142113`*^9, 
   3.555729470674239*^9}, 3.555775136288319*^9, {3.555775178048378*^9, 
   3.5557751804483814`*^9}, {3.585154065811986*^9, 3.585154078728809*^9}, {
   3.5860255405175457`*^9, 3.586025540527546*^9}, 3.5860256583752165`*^9, 
   3.586026499378931*^9, {3.5860265312364774`*^9, 3.5860265451714973`*^9}, {
   3.5863157512838583`*^9, 3.586315757463867*^9}, {3.586316277597108*^9, 
   3.5863162979371357`*^9}, {3.5863181382149754`*^9, 3.586318138234976*^9}, 
   3.586318266255155*^9, 3.706141512028139*^9, 3.7152323946093254`*^9, 
   3.7152330941323357`*^9, {3.7190276979055204`*^9, 3.719027733935581*^9}, 
   3.7190288472342587`*^9, {3.719028908781779*^9, 3.7190289530073085`*^9}, {
   3.7190290319118214`*^9, 3.7190290321398344`*^9}, 3.7190348369134474`*^9, {
   3.7190747345217113`*^9, 3.7190747477444677`*^9}, {3.719075453387828*^9, 
   3.719075505031782*^9}, {3.719075603557417*^9, 3.7190756039504395`*^9}, {
   3.7190756492120285`*^9, 3.7190756676430826`*^9}, 3.7201602819240985`*^9, 
   3.720200507548534*^9, 3.73662242928039*^9, {3.736631000542638*^9, 
   3.736631001046667*^9}, 3.736631425729957*^9, {3.7458908912561045`*^9, 
   3.7458909161845303`*^9}, {3.7458918787205844`*^9, 3.7458918834958577`*^9}, 
   3.7459030512346153`*^9, 3.7459043785845356`*^9, {3.7459054060003004`*^9, 
   3.7459054127126846`*^9}, {3.745905489008048*^9, 3.7459055137034607`*^9}, {
   3.7459055520556545`*^9, 3.7459055522546654`*^9}, {3.745905678870908*^9, 
   3.74590570058315*^9}, {3.7459073030468054`*^9, 3.745907305030919*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"ArcCoth", "[", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], ")"}], "^", "m"}], ",", "x"}], "]"}], 
     ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.553968162183943*^9, 
   3.5539681851627836`*^9}, {3.554438058758624*^9, 3.554438059968626*^9}, 
   3.555714908126317*^9, 3.555715055236523*^9, 3.555718733889207*^9, 
   3.555721527285618*^9, {3.555721591635708*^9, 3.555721603375725*^9}, {
   3.555721660045804*^9, 3.555721679935832*^9}, {3.5557220722263813`*^9, 
   3.5557220760563865`*^9}, 3.5557225762470865`*^9, {3.5557294509142113`*^9, 
   3.555729470674239*^9}, 3.555775136288319*^9, {3.555775178048378*^9, 
   3.5557751804483814`*^9}, {3.585154065811986*^9, 3.585154078728809*^9}, {
   3.5860255405175457`*^9, 3.586025540527546*^9}, 3.5860256583752165`*^9, 
   3.586026499378931*^9, {3.5860265312364774`*^9, 3.5860265451714973`*^9}, {
   3.5863157512838583`*^9, 3.586315757463867*^9}, {3.586316277597108*^9, 
   3.5863162979371357`*^9}, {3.5863181382149754`*^9, 3.586318138234976*^9}, 
   3.586318266255155*^9, 3.706141512028139*^9, 3.7152323946093254`*^9, 
   3.7152330941323357`*^9, {3.7190276979055204`*^9, 3.719027733935581*^9}, 
   3.7190288472342587`*^9, {3.719028908781779*^9, 3.7190289530073085`*^9}, {
   3.7190290319118214`*^9, 3.7190290321398344`*^9}, 3.7190348369134474`*^9, {
   3.7190747345217113`*^9, 3.7190747477444677`*^9}, {3.719075453387828*^9, 
   3.719075505031782*^9}, {3.719075603557417*^9, 3.7190756039504395`*^9}, {
   3.7190756492120285`*^9, 3.7190756676430826`*^9}, 3.7201602819240985`*^9, 
   3.720200507548534*^9, 3.73662242928039*^9, {3.736631000542638*^9, 
   3.736631001046667*^9}, 3.736631425729957*^9, {3.7458908912561045`*^9, 
   3.7458909161845303`*^9}, {3.7458918787205844`*^9, 3.7458918834958577`*^9}, 
   3.7459030512346153`*^9, 3.7459043785845356`*^9, {3.7459054060003004`*^9, 
   3.7459054127126846`*^9}, {3.745905489008048*^9, 3.7459055137034607`*^9}, {
   3.7459055520556545`*^9, 3.7459055522546654`*^9}, {3.745905678870908*^9, 
   3.7459057108317356`*^9}, {3.745907310215215*^9, 3.745907312431342*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["U:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.553618024341844*^9, 3.5536194761638765`*^9, {
   3.553619522793942*^9, 3.553619534763959*^9}, {3.553620017114634*^9, 
   3.553620058754692*^9}, {3.553620107854761*^9, 3.553620107854761*^9}, {
   3.5536201760248566`*^9, 3.553620176454857*^9}, {3.5536202411749477`*^9, 
   3.553620244394952*^9}, 3.5536208500158*^9, {3.5536209236859035`*^9, 
   3.5536209236859035`*^9}, {3.553621329336471*^9, 3.553621329526471*^9}, 
   3.553622842418589*^9, 3.553623031478854*^9, {3.5541351824384127`*^9, 
   3.554135207637854*^9}, {3.554135501657794*^9, 3.554135501860594*^9}, {
   3.5541401948572173`*^9, 3.554140195075618*^9}, {3.5541402752753587`*^9, 
   3.554140280594968*^9}, 3.5541623849245358`*^9, {3.5544855401492753`*^9, 
   3.5544855441492805`*^9}, {3.555811642936221*^9, 3.555811643346221*^9}, 
   3.555814044809583*^9, 3.55586319799642*^9, {3.5558634529632673`*^9, 
   3.555863453540468*^9}, {3.555873211355882*^9, 3.5558732180658913`*^9}, {
   3.5559585212360563`*^9, 3.555958557616107*^9}, {3.555962790172033*^9, 
   3.555962814752067*^9}, {3.5559630371023784`*^9, 3.555963048642395*^9}, {
   3.555963419682914*^9, 3.5559634198429146`*^9}, 3.5562986591110473`*^9, 
   3.5860254202773714`*^9, {3.586315779663898*^9, 3.5863157932439175`*^9}, {
   3.5863169834580956`*^9, 3.586316983608096*^9}, {3.586367963386326*^9, 
   3.586367963386326*^9}, {3.5863707247567973`*^9, 3.5863707247967973`*^9}, 
   3.5863712335650287`*^9, 3.586371494760404*^9, 3.5863719225960183`*^9, 
   3.620158528279046*^9, {3.7197653592262526`*^9, 3.7197653592262526`*^9}, 
   3.719781553085474*^9, 3.71978165878852*^9, 3.720127052949911*^9, 
   3.7363797239149375`*^9, 3.736380161414961*^9, 3.736568298218416*^9, 
   3.736626873745599*^9, 3.746071035470257*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.4807032170510798`*^9, 3.480703219724925*^9}, {3.480703363181205*^9, 
   3.480703382168507*^9}, 3.480703460921749*^9, {3.480705327535808*^9, 
   3.480705327856269*^9}, {3.492923482510395*^9, 3.4929235301528788`*^9}, {
   3.492923560276532*^9, 3.4929235623513355`*^9}, {3.4929245188358154`*^9, 
   3.4929245675391006`*^9}, {3.4929828355013185`*^9, 3.492982837903723*^9}, {
   3.493165951941674*^9, 3.493165958321683*^9}, 3.4931660117517576`*^9, {
   3.493252219687742*^9, 3.493252219687742*^9}, {3.4935813186420355`*^9, 
   3.493581344402072*^9}, {3.4940220183729095`*^9, 3.4940220212800756`*^9}, {
   3.553620890665857*^9, 3.553620890665857*^9}, {3.554135223683772*^9, 
   3.554135223683772*^9}, {3.55414034438348*^9, 3.5541403446642804`*^9}, {
   3.554485541739278*^9, 3.554485541739278*^9}, {3.555873277095974*^9, 
   3.555873277095974*^9}, {3.555958583216143*^9, 3.555958583216143*^9}, {
   3.555962845912111*^9, 3.555962845912111*^9}, 3.5863707208367915`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellChangeTimes->{{3.493166154681958*^9, 3.4931662030820255`*^9}, 
   3.4931666207326107`*^9, {3.4932522463481894`*^9, 3.49325228099585*^9}, {
   3.4933158052693357`*^9, 3.4933158328693743`*^9}, {3.4933190308138514`*^9, 
   3.493319134053996*^9}, {3.4933192438441496`*^9, 3.4933192445541506`*^9}, {
   3.4933193363142796`*^9, 3.4933193414042864`*^9}, {3.493412534339759*^9, 
   3.493412536469762*^9}, {3.493789994101406*^9, 3.493790017041438*^9}, {
   3.4937903432618947`*^9, 3.4937903499119043`*^9}, {3.493791019842842*^9, 
   3.4937910517128863`*^9}, 3.493791106992964*^9, 3.49379132604327*^9, {
   3.4937915274235525`*^9, 3.493791535933564*^9}, {3.4937916827437696`*^9, 
   3.4937916869037757`*^9}, {3.494000871747569*^9, 3.4940008717505693`*^9}, {
   3.554134918375309*^9, 3.554134979953831*^9}, {3.5541351124444094`*^9, 
   3.5541351206638794`*^9}, 3.554140366644719*^9, {3.554485491439207*^9, 
   3.554485492939209*^9}, {3.5558636303979793`*^9, 3.555863635826789*^9}, {
   3.555866903741579*^9, 3.5558669058296986`*^9}, {3.555958592676156*^9, 
   3.5559585942461586`*^9}, {3.555962805112054*^9, 3.555962807082056*^9}, {
   3.555963050912398*^9, 3.5559630526124*^9}, {3.556298667641059*^9, 
   3.5562986681310596`*^9}, {3.5860254202773714`*^9, 
   3.5860254202873716`*^9}, {3.5863157962539215`*^9, 3.586315797983924*^9}, {
   3.58637123439503*^9, 3.5863712349150305`*^9}, {3.5863714963454065`*^9, 
   3.586371498330409*^9}, {3.586371924991022*^9, 3.5863719281010265`*^9}, {
   3.7197815539015207`*^9, 3.7197815543175445`*^9}, {3.7197816589585295`*^9, 
   3.7197816589635296`*^9}, {3.720127055480056*^9, 3.7201270583232183`*^9}, {
   3.7363797267230983`*^9, 3.736379729765272*^9}, {3.7365683001995296`*^9, 
   3.7365683018306227`*^9}, {3.736627032051653*^9, 3.7366270341157713`*^9}, {
   3.746071078414713*^9, 3.7460710799187994`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_."}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", "*", "x"}]}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n", ",", 
       "p"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.4929226712309704`*^9, 3.4929226741793756`*^9}, {
   3.4929227061594315`*^9, 3.4929229312990274`*^9}, {3.492922998410345*^9, 
   3.492923016443977*^9}, {3.49292307539648*^9, 3.4929230998417234`*^9}, {
   3.492923399487049*^9, 3.49292339992385*^9}, {3.4929234702175736`*^9, 
   3.4929234715435762`*^9}, {3.4929236652023163`*^9, 3.49292366743312*^9}, 
   3.4929802336571484`*^9, {3.492982933672291*^9, 3.4929829505983205`*^9}, {
   3.4929832472016416`*^9, 3.4929833842790823`*^9}, {3.4929834529036026`*^9, 
   3.4929834542764053`*^9}, {3.493166117311906*^9, 3.493166138981936*^9}, {
   3.4931662751621265`*^9, 3.4931663186221876`*^9}, {3.4934126182898765`*^9, 
   3.493412622519882*^9}, {3.4935809700815477`*^9, 3.4935809719615507`*^9}, {
   3.493791136533005*^9, 3.4937911896730795`*^9}, 3.4937912549331713`*^9, {
   3.4938403406557693`*^9, 3.4938403671446157`*^9}, {3.4940008717605696`*^9, 
   3.49400087176457*^9}, 3.4940219212193527`*^9, 3.5486903743006315`*^9, {
   3.5487324587251234`*^9, 3.548732460208208*^9}, {3.548732730811686*^9, 
   3.548732736147991*^9}, {3.5541352991580887`*^9, 3.5541353413395014`*^9}, {
   3.5541402938081913`*^9, 3.5541403311390567`*^9}, {3.5541403721671286`*^9, 
   3.554140375427534*^9}, 3.554140423054418*^9, {3.5544854952692127`*^9, 
   3.5544855279792585`*^9}, {3.5558140527895947`*^9, 3.555814074569625*^9}, {
   3.5558636242359686`*^9, 3.555863646076007*^9}, {3.555873294705999*^9, 
   3.555873298326004*^9}, {3.555958612566184*^9, 3.5559586269962044`*^9}, {
   3.555958657236247*^9, 3.555958669896264*^9}, {3.5559587036863117`*^9, 
   3.555958714536327*^9}, {3.5559628608421316`*^9, 3.555962898172184*^9}, 
   3.555962928342226*^9, {3.555963176762574*^9, 3.5559632050226135`*^9}, {
   3.556298669071061*^9, 3.5562986703810625`*^9}, 3.5860255405375457`*^9, 
   3.5860256583852167`*^9, {3.5860265744815397`*^9, 3.586026575116541*^9}, {
   3.5863158576340075`*^9, 3.5863158742440305`*^9}, {3.586370728206802*^9, 
   3.5863707349618115`*^9}, {3.5863712386450357`*^9, 3.586371245735046*^9}, {
   3.5863715049154186`*^9, 3.5863715309904556`*^9}, {3.586371931291031*^9, 
   3.5863719338510346`*^9}, 3.712338196236747*^9, 3.7155500714324493`*^9, {
   3.7197815549455805`*^9, 3.719781556238654*^9}, 3.719781723200204*^9, 
   3.7197817777033215`*^9, 3.7197818101651783`*^9, {3.7201270653066177`*^9, 
   3.720127090417054*^9}, {3.736379684852703*^9, 3.7363798350062914`*^9}, {
   3.73637990613836*^9, 3.7363799454506087`*^9}, {3.7363799785935044`*^9, 
   3.736380073130912*^9}, 3.736380192602745*^9, {3.736568304277763*^9, 
   3.7365683061888723`*^9}, {3.736626888875464*^9, 3.736626961308607*^9}, {
   3.7366270172238054`*^9, 3.7366270176868315`*^9}, {3.736627076079171*^9, 
   3.736627077381246*^9}, {3.745907347398342*^9, 3.7459073546387563`*^9}, {
   3.7460710429356833`*^9, 3.746071096335738*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_."}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", "*", "x"}]}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcCoth", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n", ",", 
       "p"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.4929226712309704`*^9, 3.4929226741793756`*^9}, {
   3.4929227061594315`*^9, 3.4929229312990274`*^9}, {3.492922998410345*^9, 
   3.492923016443977*^9}, {3.49292307539648*^9, 3.4929230998417234`*^9}, {
   3.492923399487049*^9, 3.49292339992385*^9}, {3.4929234702175736`*^9, 
   3.4929234715435762`*^9}, {3.4929236652023163`*^9, 3.49292366743312*^9}, 
   3.4929802336571484`*^9, {3.492982933672291*^9, 3.4929829505983205`*^9}, {
   3.4929832472016416`*^9, 3.4929833842790823`*^9}, {3.4929834529036026`*^9, 
   3.4929834542764053`*^9}, {3.493166117311906*^9, 3.493166138981936*^9}, {
   3.4931662751621265`*^9, 3.4931663186221876`*^9}, {3.4934126182898765`*^9, 
   3.493412622519882*^9}, {3.4935809700815477`*^9, 3.4935809719615507`*^9}, {
   3.493791136533005*^9, 3.4937911896730795`*^9}, 3.4937912549331713`*^9, {
   3.4938403406557693`*^9, 3.4938403671446157`*^9}, {3.4940008717605696`*^9, 
   3.49400087176457*^9}, 3.4940219212193527`*^9, 3.5486903743006315`*^9, {
   3.5487324587251234`*^9, 3.548732460208208*^9}, {3.548732730811686*^9, 
   3.548732736147991*^9}, {3.5541352991580887`*^9, 3.5541353413395014`*^9}, {
   3.5541402938081913`*^9, 3.5541403311390567`*^9}, {3.5541403721671286`*^9, 
   3.554140375427534*^9}, 3.554140423054418*^9, {3.5544854952692127`*^9, 
   3.5544855279792585`*^9}, {3.5558140527895947`*^9, 3.555814074569625*^9}, {
   3.5558636242359686`*^9, 3.555863646076007*^9}, {3.555873294705999*^9, 
   3.555873298326004*^9}, {3.555958612566184*^9, 3.5559586269962044`*^9}, {
   3.555958657236247*^9, 3.555958669896264*^9}, {3.5559587036863117`*^9, 
   3.555958714536327*^9}, {3.5559628608421316`*^9, 3.555962898172184*^9}, 
   3.555962928342226*^9, {3.555963176762574*^9, 3.5559632050226135`*^9}, {
   3.556298669071061*^9, 3.5562986703810625`*^9}, 3.5860255405375457`*^9, 
   3.5860256583852167`*^9, {3.5860265744815397`*^9, 3.586026575116541*^9}, {
   3.5863158576340075`*^9, 3.5863158742440305`*^9}, {3.586370728206802*^9, 
   3.5863707349618115`*^9}, {3.5863712386450357`*^9, 3.586371245735046*^9}, {
   3.5863715049154186`*^9, 3.5863715309904556`*^9}, {3.586371931291031*^9, 
   3.5863719338510346`*^9}, 3.712338196236747*^9, 3.7155500714324493`*^9, {
   3.7197815549455805`*^9, 3.719781556238654*^9}, 3.719781723200204*^9, 
   3.7197817777033215`*^9, 3.7197818101651783`*^9, {3.7201270653066177`*^9, 
   3.720127090417054*^9}, {3.736379684852703*^9, 3.7363798350062914`*^9}, {
   3.73637990613836*^9, 3.7363799454506087`*^9}, {3.7363799785935044`*^9, 
   3.736380073130912*^9}, 3.736380192602745*^9, {3.736568304277763*^9, 
   3.7365683061888723`*^9}, {3.736626888875464*^9, 3.736626961308607*^9}, {
   3.7366270172238054`*^9, 3.7366270176868315`*^9}, {3.736627076079171*^9, 
   3.736627077381246*^9}, {3.745907347398342*^9, 3.7459073546387563`*^9}, {
   3.7460710429356833`*^9, 3.7460711168159094`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "(", "d", "+", "e", " ", "x", ")", "^", "m", " ", "(", "a",
       "+", "b", " ", "arctanh", "(", "c", " ", "x", "^", "n", ")", ")", "^", 
      "p"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{774, 597},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{28.8, 41.976}, {28.8, 28.8}}},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2215, 43, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2785, 67, 4100, 72, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[6910, 143, 3931, 70, 62, "Subsubtitle"],
Cell[CellGroupData[{
Cell[10866, 217, 6771, 112, 62, "Subsubtitle"],
Cell[17640, 331, 154, 2, 495, "Subsubsection",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[17797, 335, 802, 23, 810, "Subsubsection",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[18602, 360, 1767, 33, 638, "Subsubsection",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[20372, 395, 3017, 74, 1296, "Subsubtitle",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[23392, 471, 771, 11, 495, "Subsubsection"],
Cell[24166, 484, 4896, 109, 1882, "Code"],
Cell[29065, 595, 4945, 110, 2031, "Code"],
Cell[34013, 707, 113, 2, 495, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[34163, 714, 4408, 80, 62, "Subsubtitle"],
Cell[CellGroupData[{
Cell[38596, 798, 6913, 112, 865, "Subsubtitle"],
Cell[45512, 912, 202, 3, 495, "Subsubsection"],
Cell[45717, 917, 1069, 30, 551, "Subsubsection"],
Cell[46789, 949, 1032, 25, 565, "Subsubsection"],
Cell[47824, 976, 1606, 42, 585, "Subsubsection"],
Cell[49433, 1020, 1166, 27, 551, "Subsubsection"],
Cell[50602, 1049, 1799, 32, 365, "Subsubsection",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[52404, 1083, 7617, 211, 4141, "Subsubtitle"],
Cell[60024, 1296, 771, 11, 495, "Subsubsection"],
Cell[60798, 1309, 6416, 148, 2622, "Code"],
Cell[67217, 1459, 6440, 148, 2769, "Code"],
Cell[73660, 1609, 113, 2, 495, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[73810, 1616, 6931, 113, 926, "Subsubtitle"],
Cell[80744, 1731, 202, 3, 495, "Subsubsection"],
Cell[80949, 1736, 1069, 30, 551, "Subsubsection"],
Cell[82021, 1768, 1032, 25, 565, "Subsubsection"],
Cell[83056, 1795, 1606, 42, 585, "Subsubsection"],
Cell[84665, 1839, 1330, 33, 550, "Subsubsection"],
Cell[85998, 1874, 1799, 32, 365, "Subsubsection",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[87800, 1908, 9376, 268, 6465, "Subsubtitle"],
Cell[97179, 2178, 771, 11, 495, "Subsubsection"],
Cell[97953, 2191, 7489, 182, 3354, "Code"],
Cell[105445, 2375, 7489, 182, 3506, "Code"],
Cell[112937, 2559, 113, 2, 495, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[113087, 2566, 7005, 114, 926, "Subsubtitle"],
Cell[120095, 2682, 202, 3, 495, "Subsubsection"],
Cell[120300, 2687, 1069, 30, 551, "Subsubsection"],
Cell[121372, 2719, 1032, 25, 565, "Subsubsection"],
Cell[122407, 2746, 1606, 42, 585, "Subsubsection"],
Cell[124016, 2790, 1410, 34, 618, "Subsubsection"],
Cell[125429, 2826, 1799, 32, 365, "Subsubsection",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[127231, 2860, 11044, 317, 8700, "Subsubtitle"],
Cell[138278, 3179, 771, 11, 495, "Subsubsection"],
Cell[139052, 3192, 9115, 229, 4092, "Code"],
Cell[148170, 3423, 9113, 229, 4240, "Code"],
Cell[157286, 3654, 113, 2, 495, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[157460, 3663, 6771, 107, 53, "Subsubtitle"],
Cell[164234, 3772, 305, 4, 495, "Subsubsection"],
Cell[164542, 3778, 1813, 30, 365, "Subsubsection"],
Cell[166358, 3810, 2946, 71, 956, "Subsubtitle"],
Cell[169307, 3883, 819, 11, 495, "Subsubsection"],
Cell[170129, 3896, 4103, 94, 1882, "Code"],
Cell[174235, 3992, 4156, 95, 2031, "Code"],
Cell[178394, 4089, 89, 2, 495, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[178520, 4096, 7457, 119, 53, "Subsubtitle"],
Cell[185980, 4217, 305, 4, 495, "Subsubsection"],
Cell[186288, 4223, 2348, 40, 365, "Subsubsection"],
Cell[188639, 4265, 3509, 84, 1671, "Subsubtitle"],
Cell[192151, 4351, 819, 11, 495, "Subsubsection"],
Cell[192973, 4364, 5108, 115, 1882, "Code"],
Cell[198084, 4481, 5057, 114, 2031, "Code"],
Cell[203144, 4597, 89, 2, 495, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[203282, 4605, 4502, 78, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[207809, 4687, 4059, 67, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[211893, 4758, 4045, 66, 66, "Subsubtitle"],
Cell[CellGroupData[{
Cell[215963, 4828, 7543, 117, 66, "Subsubtitle"],
Cell[223509, 4947, 305, 4, 130, "Subsubsection"],
Cell[223817, 4953, 1066, 28, 165, "Subsubsection"],
Cell[224886, 4983, 1917, 31, 96, "Subsubsection"],
Cell[226806, 5016, 3240, 72, 253, "Subsubtitle"],
Cell[230049, 5090, 819, 11, 130, "Subsubsection"],
Cell[230871, 5103, 4587, 94, 491, "Code"],
Cell[235461, 5199, 4689, 96, 530, "Code"],
Cell[240153, 5297, 89, 2, 130, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[240279, 5304, 7616, 118, 66, "Subsubtitle"],
Cell[247898, 5424, 185, 2, 130, "Subsubsection"],
Cell[248086, 5428, 2902, 54, 106, "Subsubsection"],
Cell[250991, 5484, 2096, 37, 96, "Subsubsection"],
Cell[253090, 5523, 3034, 62, 253, "Subsubtitle"],
Cell[256127, 5587, 819, 11, 130, "Subsubsection"],
Cell[256949, 5600, 4723, 95, 491, "Code"],
Cell[261675, 5697, 4723, 95, 530, "Code"],
Cell[266401, 5794, 89, 2, 130, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[266539, 5802, 7403, 116, 53, "Subsubtitle"],
Cell[273945, 5920, 305, 4, 130, "Subsubsection"],
Cell[274253, 5926, 1062, 28, 165, "Subsubsection"],
Cell[275318, 5956, 1861, 31, 96, "Subsubsection"],
Cell[277182, 5989, 3519, 82, 257, "Subsubtitle"],
Cell[280704, 6073, 819, 11, 130, "Subsubsection"],
Cell[281526, 6086, 4954, 111, 491, "Code"],
Cell[286483, 6199, 5000, 111, 530, "Code"],
Cell[291486, 6312, 89, 2, 130, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[291624, 6320, 7701, 123, 53, "Subsubtitle"],
Cell[299328, 6445, 352, 4, 130, "Subsubsection"],
Cell[299683, 6451, 2129, 36, 96, "Subsubsection"],
Cell[301815, 6489, 2969, 60, 201, "Subsubtitle"],
Cell[304787, 6551, 819, 11, 130, "Subsubsection"],
Cell[305609, 6564, 4340, 83, 394, "Code"],
Cell[309952, 6649, 4341, 83, 433, "Code"],
Cell[314296, 6734, 89, 2, 130, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[314434, 6742, 7112, 108, 53, "Subsubtitle"],
Cell[321549, 6852, 1554, 21, 35, "Subsubsection"],
Cell[323106, 6875, 2821, 57, 53, "Subsubtitle"],
Cell[325930, 6934, 771, 11, 35, "Subsubsection"],
Cell[326704, 6947, 4034, 77, 104, "Code"],
Cell[330741, 7026, 4036, 77, 114, "Code"],
Cell[334780, 7105, 89, 2, 35, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)